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Editorial 

Stefano Tognon < ice00(5>libero.it > 




Hi, again. 

In this new issue of SIDin I presents two reverse engineering works about two fantastic sid 
tunes: Lazy Jones and Driller. Even if you probably already know how the two authors made the 
sound in the tunes, maybe someone could be interesting too. 

I hope that David and Matt (Matt! Where are you?) take this work for that is: a big recognition for 
their fantastic work in the C64 scene! 

Remember that the right of the presented code remain to the two authors, so contact them if you 
want to get a business use of it. 



See you at the next issue. 
Bye 



Some various news of players, programs and competition: 



Sidplay2/w 

JohnPlayer 1 .6 and 2 beta 

PSID64 0.5 

TSID2 0.1 

Ninjatrk 1.0/1.01/1.02 

HVSC 5.1 

Audio::SID3.01 & SIDedit 3.01 

The Sid Compo II 



Sidplay2/w 




Released on 20 Oct 2002 this new version of the Windows sid player supports the new RSID file 
format. RSID is just a PSID (with the new PSIDv2NG extension) that require a real C64 environ- 
ment to run (Real SID). As a real C64 rip can crash old sid player, changing the PSID header in 
RSID allow that player to not find the sid as valid and so it did not crash. 

Download from: http://www.student.nada.kth.se/~d93-alo/c64/spw 



JohnPlayer 1.6/2.0b 




The music player editor of Aleksi Eeben is at 
version 1.6. This player uses only 7 rasterline, 
so it is very indicate for demo that need to use 
few rasterlines for the music. 

It is also available a 2.0 beta version that has 
some advantage in the steps of sound table 
and sequencer, but now use 8 rasterlines. 

Download the player from: 
http://www.student.oulu.fi/~aeeben/ 



PSID64 0.5 




Released at 7 Nov 2002 this new version of the program that generate a C64 executable pro- 
gram from a sid file now support the RSID files. 



You can now listen to the real C64 rips on your C64 :-) 
Download from http://sf.net/projects/psid64 



After some very long delay, finally a preliminary version of TSID2 (Time Sid Manager next gen- 
eration) library is available on Linux system. The library store you listening statistic about sid tunes 
from a patched sid player, so you can look for your best sids. 

It is totally based onto MD5 fingerprinter, so it can manages even reordered collection of sid 
tunes. You can use a patched xsidplay-1.6.5pre18 version that shows all the features of the new 
library. 



;|g:TSID2 Best Lists 



IE 



Best list of time 



Best list of number 



1 






Time 


A 






Last_Ninja.sid #6 


1732 


2 


LastJMinja.sid #5 


306 


A 


3 


Yie_Ar_Kung_Fu_II.sid 


#1 


736 


4 


A_Little_Ditty.sid #1 


740 


5 


Miami_Vice,sid #1 


603 


6 


Green_Beret.sid #10 


601 


7 


Last_Ninja.sid #10 


592 


3 


Writer_Demo_PSID , sid 


#1 


531 


W 



1 


Name 




Number 


A 




Soulfixer.sid #1 


4 


2 


720_Degrees,sid 


*2 


1 


A 


3 


gopho.sid #1 


3 


4 


Little_Girl.sid #1 


3 


5 


A_Rainy_Day.sid 


#1 


3 


6 


Hutlen.sid #1 


3 


7 


Without a name 


sid #1 


3 


3 


Rlueninht.siri #1 


~i\ 


W 



Max best time entries: 25 



Max best number entries: 25 



TSID2 root dir. 



I - Use custom root 
Engine mode 



Browse 



(• Dinamic C Static 



Total listen Time: 16606 

Total number of listen: 75 



Cancel 



OK 



Download all the stuff from http://sf.net/projects/tsid 

Injatrk 1.0/1.01/1.02 
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" ine 


00:55 Octave 


Raster S/ti 



Released on 1 Nov 2002 this is a new track- 
er by Lasse Oorni (Cadaver). 

This tracker use only 10 rasterline and is op- 
timized even for use very little quantity of 
memory. 

It is a player that can be used for demo pro- 
grams where memory and rasterlines are lim- 
ited. 

Version 1 .01 was released 2 weeks later and 
version 1 .02 some days after. 

The last version has only 8 rasterlines even during badlines, so it is now more interesting. 

Download from: 
http://covertbitops.c64.orq/tools/niniatrk.zip 



HVSC 5.1 




Released on 26/10/2002 the upgrade 33 of HVSC contains the real rip (RSID). 
After this update, the collection should contain 19,203 SID files! 
This update contains: 

504 new SIDs 

49 fixed/better rips 

90 fixes of PlaySID/Sidplayl specific SIDs 
7 repeats/bad rips eliminated 
317 SID credit fixes 

Download the collection/upgrade from: http://www.hvsc.c64.org 



Audio::SID 3.01 & SIDedit 3.01 




The LaLa perl module for managing sid file (Audio::SID) and the graphical program SIDedit is 
now at version 3.01. 

SIDedit is a Perl/Tk GUI application that allows to read, write and edit binary SID files: the defin- 
itive utility for a SID ripper! 



This version has some bug fixes and the support of RSID file format. 
Download from the Lala site: http://lala.c64.org 



The SID Compo II 




The c64.sk Music Competition, from 8 October to 4 November 2002 has 
reached 30 entries from 13 counties and some other bonus tunes! 

This year the competition was open to all the kind of music players, while the 
previous (Goattrk compo) was open only to Goattrk player. 



Here the final classification: 

PLACE PTS 



1 


490 


2 


465 


3 


452 


4 


439 




439 


5 


425 


6 


420 




420 


7 


409 


8 


395 


9 


388 


10 


382 




382 


11 


379 


12 


378 


13 


377 


14 


375 


15 


371 


16 


370 


17 


368 


18 


362 


19 


348 


20 


324 


21 


322 


22 


317 


23 


313 


24 


306 


25 


290 


26 


279 


27 


252 



HANDLE / GROUP / SONG NAME / TIME 

Dane / Crest trial_and_error 

Vip/ Padua / Role / WOW / Cyber Zound Prancah 

DaFunk / Onslaught Euro(S)cream 

GH lafrique 

Yodelking of Defiers & UL-Tomten Banankorv 

Dr. Voice / Magic_Carpet_Ride 

Trance / X-Stayle Way_of_the_Saint 

No-XS / Toondichters Still in April 

Cadaver / CovertBitops TheConsultant 

Jammer/ MSL/ Samar Sky_Flight 

Oedipus Wings_of_Death 

Makt One / Fairlight NagChampa 

Sidder / MultiStyle Labs / Role MrPivo 

Aleksi Eeben / CNCD RoundBlueRath 

Smalltown Boy / MultiStyle Labs coffee 

Luca / Fire mindfixer 

Dalezy / Creators / Rebels midnightrun 

A Life in Hell /WOW / Unreal internalise 

Mr.Death / Creators Russian_Cow_Moolok 

Mermaid / Creators / Crest in_die_Dunkelheit 

Richard / TND / Civitas / PTV TwiceDelight 

St0fF/N30PLA51A Wektag 

Waz / Padua Very_Doubtful_Space 

TDS / Creators Level_Zero 

hukka / Exec kauppa 

CeRRor/Ex-Xentax CerroR_MoS 

pOnToNiuS Poke 

Pater PI/ Church64 Star_Fox_Corneria 

Alias Medron / Padua / Samar relax 

Six of DLoC /Dark Lords of Chaos Hi6i1 1y H34v3n! 



See the even at: http://www.c64.sk/index.php?content=article.php&articleid=57&id=832 




orni (Cadaver) Intervie 

by Stefano Tognon 




In this second issue, I present this interview with Lasse that occurs with some emails in Novem- 
ber of this year. I like the Cadever's works: fantastic games with a wonderful atmosphere like in 
MW series (e.g. I like the rain, or the day/night effect you can found in them) and a series of cross- 
develop tools and music players. 



Hello, Lasse, 

Before starting say something about your real life: where do you live, what do you do... 

I live near Oulu, Finland, and study physics/math/chemistry/computer science in the Oulu uni- 
versity (I aim to be a teacher) 

Well, you are probably know to the most by having created many bigs games for the C64: 
Escape From New York, BOFH:Servers Under Siege, Metal Warrior: you had wrote anything 
from engines, graphics, musics. Maybe you are one of the last full coder around that use 
however the modern technology (crossdevelop)? 

This is an interesting question, because I started "serious" or C64 coding and crossdeveloping 
quite late, in 1 998, after a break of several years; 

before that I never got anything noteworthy done on the C64. So I guess that makes me quite a 
newcomer. :) 

But there are several coders using crossdevelopment, and more are picking it up, and big demos 
& games are being created, so perhaps I wouldn't like to say "one of the last". 

How about your players? You had created Music driver, SadoTracker, Goattrk and Nlnjatrk. 
Why you had write so many players? 

I've been steadily improving as a coder, so each time, when starting a new game project, I also 
wanted to rewrite the playroutine for memory or speed (rastertime) gain. Sometimes, I even wrote 
editors :) 

I thought Goattracker would be the ultimate for my personal use, because it was fast & easy to 
compose on, but finally I had to realize that music made with it takes too much memory (because 
of the patterns, they're like in Amiga/PC tracker programs). So I started the quest for the extremely 
optimized playroutine/musicdata combination (Ninjatracker) :) 

Speaking about music: what we must expect from you now? Another player? Other fea- 
tures to one of your player (e.g. something had asked for dlgl-sample support In your play- 
er)? 

I have no experience of sample coding (although I guess it's not too hard), so it's unlikely they'd be 
featured in my editor(s). Also, Goattracker has kind of reached the peak in ease-of-use vs. fea- 
tures (it is missing step-programming for sounds, that would add versatility at the cost of 
easiness), and Ninjatracker in speed & size, so at least now I can't see the need/possibility for an- 
other player. 

So, you can hope/expect that I make good music for MW4 :) 

(there are also other non-C64 related guys making music for it, I'll then arrange it for C64 as ne- 
cessary - same system as with MW3) 



Now some quick final (standard) questions: 

Real machine vs emulator: what do you think of? 

Real machine is better for gaming sessions, that' s for sure. :) 

And a real SID is very much preferable for composing. 

But emulators are very powerful tools in testing your programs. 

What is the worst sid that you compose and the better one? 

Worst is probably the music from Advanced Action Movie Simulator, it was done that way on pur- 
pose (crapgame-compo) 

About best I don' t know, MW2 has some nice melodies in a couple of tunes. 

Who are your best sid authors? 

Quite the usual; Rob Hubbard, Martin Galway, Matt Gray, Jonathan Dunn (this guy composed the 
ultimate war-feeling/heroic SIDs), Reyn Ouwehand 

What are the best sids ever in your opinion? 

Hubbard' s Sanxion loader, and the various Ocean Loaders evoke the most feeling in me :) 
Platoon, Last Ninja 2 & Last Ninja 3 soundtracks contain also nothing but brilliant tunes to me. 
Usually, it' s not the technicality that I care most of, but rather the melodies and the atmosphere. 

Finally, many thanks for the time you give for this interview, 

and now you can say any things you want for concluding this interview :) 

Ok, this goes for any C64 gamedevelopers. Beware of 2 things that will get your project cancelled, 
by mysterious hand of fate: 

1 ) planning to do a Zelda project with bitmap scrolling 

2) trying to do another Turrican for C64 :) 



Webography: 

Covert BitOps site: 
http://covertbitops.c64.org/ 

Lasse Oorni homepage 
http://www.student.oulu.fi/~loorni/ 




vid Wittaker' s Lazy Jones music routine 

by Stefano Tognon < ice00(5>libero.it > 





What to say about this game? Fantastic. 

It was simple but very original and with a 
music that I think all who play it did not forget. 
Now I simply show you how David made this 
music. You probably will be surprise to see a 
so simple engine gives this magic music: 
maybe it is all David talent! 

First of all: the reverse engineering work is 
based onto the Sid rip present in HVSC. How 
you see it is not complete with the sound SX: 
however it is just what we need. 

If you look at the code you can see that the engine is very simple: 

The 20 music peaces are with the same length (the first is a case we see after): 80h bytes of 

data. 

Each peaces of music contains the low/high frequency to set in the sid registers for the 2 voices 

used (so 4 bytes). 

There' s not a note duration: each notes have the same length. 

There' snot special SID effect: all the notes use the same setting: Attack/Decay of 66h and 21 h 

wave form. 

As the Decay/Released is not set (so 0), there' sa simple 20h to 21 h setting in the wave form 

when the note changes. 

Tune 1 is an exception: it is the running of tune 1 and 1 1 in sequences. 

So from where comes the beautiful sound? I think from the music notes themselves! 

Maybe David had used some frequencies that give a better result using a little less or high val- 
ues from the expected. However this require me many times for investigated; so look at the code 
and judge from yourself. 




'he Code 



This code is a reverse engineering works, so contact the copyright owner author for making any 
business use of it. 

I have also noted that the game was ripped from a cracked version of the game, as it contains a 
faulty track (not used in the rip, but present). You can see this track at the end of the listing at the 
wrong label, and you can listen to it if you change the source and you active it again. 



processor 6502 




org 1921 




byte 


"PSID" 




word 


$0200 


; version 2 


word 


$7C00 


; data offset 


byte 


#>init 




byte 


#<init 




byte 


#>init 




byte 


#<init 




byte 


#>IRQ 




byte 


#<IRQ 




word 


$1500 


; 21 song 


word 


$0100 


; default song 



10 



.word $FFFF 

.word $FFFF 

.byte "lazy Jones", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

.byte "David Whittaker", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.byte "1984 Terminal Sof tware" , 0, , 0, , 0, 0, , 0, , 

.word $0000 

.word $0000 

.word $0000 



MUSIC 


= $03E0 ; 


INDEX 


= $03E1 


DELAY 


= $03E3 


PATTL 


= $03E4 


PATTH 


= $03E5 


init : 








cmp 


#$00 




beq 


first 




tax 






Ida 


#$80 




sta 


COMP+1 




Ida 


tableLo, x 




sta 


LOP + 1 




Ida 


tableHi, x 




sta 


HIP + 1 




jmp 


initEngine 


first 








Ida 


#$00 




sta 


COMP+1 




Ida 


#<Tunel 




sta 


LOP + 1 




Ida 


#>Tunel 




sta 


HIP + 1 




jmp 


initEngine 



l=play music 
index to freq. pattern 
delay (speed of tune) 
low pointer of pattern 
high pointer of pattern 



tableLo : 

.byte <Tunel, 
.byte <Tune5, 
.byte <Tune9, 
.byte <Tunel3, 
.byte <Tunel7, 
.byte <Tune21 



<Tune2, <Tune3, <Tune4 
<Tune6, <Tune7, <Tune8 
<Tunel0, <Tunell, <Tunel2 
<Tunel4, <Tunel5, <Tunel6 
<Tunel8, <Tunel9, <Tune20 



tableHi: 

.byte >Tunel, >Tune2, >Tune3, >Tune4 
.byte >Tune5, >Tune6, >Tune7, >Tune8 
.byte >Tune9, >Tunel0, >Tunell, >Tunel2 
.byte >Tunel3, >Tunel4, >Tunel5, >Tunel6 
.byte >Tunel7, >Tunel8, >Tunel9, >Tune20 
.byte >Tune21 



Tables with pointers 
to the tunes patterns 



IRQ: 



skipl : 



Ida 


MUSIC 


beq 


exit 


dec 


DELAY 


bne 


exit 


Ida 


#$0C 


sta 


DELAY 


ldy 


#$00 


Ida 


($B4),y 


beq 


skipl 


sta 


$D400 


iny 




Ida 


($B4) , Y 


sta 


$D401 


Ida 


#$20 


sta 


$D404 


Ida 


#$21 


sta 


$D404 


Ida 


$B4 


clc 




adc 


#$02 


sta 


$B4 


Ida 


$B5 


adc 


#$00 


sta 


$B5 


ldy 


#$00 


Ida 


($B4) , Y 


beq 


skip2 


sta 


$D407 


iny 




Ida 


($B4) , Y 


sta 


$D408 


Ida 


#$20 


sta 


$D40B 


Ida 


#$21 


sta 


$D40B 



read music flag 

0=not play 

dec delay for speed 



init the delay (speed) of tune 

read low frequency 

zero? 

Voice 1 : Frequency control (lo byte) 

read high freqeuncy 

Voice 1: Frequency control (hi byte) 

Voice 1: Control registers 

Voice 1: Control registers 



read low frequency 

zero? 

Voice 2: Frequency control (lo byte) 

read high freqeuncy 

Voice 2: Frequency control (hi byte) 

Voice 2 

Voice 2 



Control registers 
Control registers 



ll 



skip2 : 



Ida 


$B4 






clc 








adc 


#$02 






sta 


$B4 






Ida 


$B5 






adc 


#$00 






sta 


$B5 






inc 


INDEX 






inc 


INDEX 






inc 


INDEX 






inc 


INDEX 






Ida 


INDEX 






COMP: 








cmp 


#$80 






bne 


exit 






Ida 


#$00 






sta 


INDEX 






Ida 


PATTL 






sta 


$B4 






Ida 


PATTH 






sta 


$B5 






exit : jmp 


$EA31 






setAD: 








Ida 


#$1F 






sta 


$D418 






Ida 


#$66 






sta 


$D405 






sta 


$D40C 






sei 








Ida 


#<IRQ 






sta 


$0314 






Ida 


#>IRQ 






sta 


$0315 






cli 








rts 








initEngine : 








Ida 


#$01 






sta 


MUSIC 






Ida 


#$00 






sta 


INDEX 






Ida 


#$0C 






sta 


DELAY 






LOP: 








Ida 


#$00 






sta 


PATTL 






sta 


$B4 






HIP: 








Ida 


#$1C 






sta 


PATTH 






sta 


$B5 






Ida 


#$FF 






sta 


$D416 






Ida 


#$03 






sta 


$D417 






jsr 


setAD 






rts 








org 2400 








Tune2 : 








.byte $D5 


$07, 


$D2, 


$0F 


.byte $BE 


$0F, 


$E6, 


$0F 


.byte $D5 


$07, 


$FD, 


$07 


.byte $D2 


$0F, 


$D1, 


$12 


.byte $D5 


$07, 


$FD, 


$07 


.byte $D2 


$0F, 


$C3, 


$11 


.byte $D5 


$07, 


$FD, 


$07 


.byte $BE 


$0F, 


$E6, 


$0F 


.byte $47 


$06, 


$D1, 


$12 


.byte $7B 


$0C, 


$A3, 


$0C 


.byte $33 


$06, 


$5B, 


$06 


.byte $7B 


$0C, 


$A3, 


$0C 


.byte $33 


$06, 


$5B, 


$06 


.byte $7B 


$0C, 


$A3, 


$0C 


.byte $33 


$06, 


$5B, 


$06 


.byte $7B 


$0C, 


$A3, 


$0C 


.byte $E9 


$07, 


$D2, 


$0F 


.byte $BE 


$0F, 


$E6, 


$0F 


.byte $D5 


$07, 


$FD, 


$07 


.byte $D2 


$0F, 


$D1, 


$12 


.byte $D5 


$07, 


$FD, 


$07 


.byte $D2 


$0F, 


$C3, 


$11 


.byte $D5 


$07, 


$FD, 


$07 


.byte $BE 


$0F, 


$E6, 


$0F 


.byte $68 


$09, 


$DA, 


$0B 


.byte $BD 


$12, 


$E5, 


$12 



; inc index by 4 



end of pattern? 



set pointer to the begin 
repristinate pattern pointer 



Default hardware interrupt (IRQ) 



; Select volume and filter mode 

; Generator 1 : Attack/Decay 
; Generator 2 : Attack/Decay 



; Vector: Hardware Interrupt (IRQ) 
; Vector: Hardware Interrupt (IRQ) 



play music 

reset index pointer 

set delay (speed of tune) 



; Filter cut frequency: hi byte 

; Filter resonance control/voice input control 



Now all the list of 
frequencies to play 



12 



.byte 


$54 


$09, 


$7C, 


$09 


.byte 


$BD 


$12, 


$E5, 


$12 


.byte 


$54 


$09, 


$7C, 


$09 


.byte 


$BD 


$12, 


$E5, 


$12 


.byte 


$54 


$09, 


$7C, 


$09 


.byte 


$BD 


$12, 


$E5, 


$12 


Tune3 : 










.byte 


$E9 


$07, 


$B5, 


$17 


.byte 


$D2 


$0F, 


$B5, 


$17 


.byte 


$E9 


$07, 


$1F, 


$15 


.byte 


$D2 


$0F, 


$D1, 


$12 


.byte 


$D5 


$07, 


$1F, 


$15 


.byte 


$D2 


$0F, 


$B5, 


$17 


.byte 


$D5 


$07, 


$FD, 


$07 


.byte 


$BE 


$0F, 


$E6, 


$0F 


.byte 


$68 


$09, 


$A2, 


$25 


.byte 


$D1 


$12, 


$31, 


$1C 


.byte 


$68 


$09, 


$B5, 


$17 


.byte 


$D1 


$12, 


$1F, 


$15 


.byte 


$68 


$09, 


$B5, 


$17 


.byte 


$BD 


$12, 


$1F, 


$15 


.byte 


$54 


$09, 


$7C, 


$09 


.byte 


$BD 
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$0E 


Tune6: 










.byte 
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$D1, 


$12 
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$0C, 


$A3, 
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$3D 
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$0C, 


$1F, 
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$51, 
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$0C, 


$A3, 
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$06, 


$D1, 
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$7B 


$0C, 


$A3, 
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$C3, 
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$8E 


$05, 


$A2, 
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$A3, 


$0C 


Tune7: 










.byte 


$30 


$04, 


$D1, 
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$08, 
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$C3, 
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$3A, 
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.byte 


$4D 
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$75, 
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$04, 


$1F, 


$15 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$B4 


$04, 


$D1, 
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.byte 


$54 


$09, 


$7C, 
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.byte 


$B4 


$04, 


$C3, 
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$C3, 
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.byte 
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.byte 
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$08 


$1F, 
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.byte 
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.byte 
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$A3, 
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.byte 
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$04 
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$68, 


$09 


A H2 




.byte 
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$3D 


$06 
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$7B 
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$0C 
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.byte 
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$A3, 
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$0C 
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$47 


$06 
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$0B 
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$05 


$F7, 
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.byte 
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$0B 
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.byte 
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$0B 


$B5, 
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$E3 
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$F7, 


$05 






.byte 
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$0B 


$EF, 


$13 






.byte 
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$04 


$4E, 


$0D 






.byte 


$CD 


$08 


$F5, 


$08 






.byte 
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$04 


$7A, 


$04 






.byte 


$E1 


$08 


$EF, 
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$04 


$7A, 


$04 






.byte 


$E1 


$08 


$C3, 


$11 
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$04 


$7A, 


$04 
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$E1 


$08 


$EF, 
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$ED 


$05 


$C3, 
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.byte 


$C6 


$0B 


$EE, 
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$E3 


$05 


$F7, 
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$0B 
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$F7, 
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$0B 


$B5, 
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$F7, 
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$0B 
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.byte 


$E1 
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$D7, 
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$F5, 


$08 






.byte 


$C3 


$11 


$86, 


$23 






.byte 
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$F5, 
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.byte 
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$11 
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$9C, 
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.byte 
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$E5, 
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$09 


$31, 
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$D1 


$12 


$60, 
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.byte 
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$09 


$7C, 
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.byte 


$BD 


$12 


$E5, 


$12 






.byte 


$68 


$09 


$D1, 


$12 






.byte 


$BD 


$12 


$E5, 


$12 






.byte 


$86 


$03 


$C3, 


$10 






.byte 


$02 


$07 


$16, 


$07 







16 



.byte 


$86 


$03, 


$31, 


$1C 


.byte 


$0C 


$07, 


$1F, 


$15 


.byte 


$7C 


$03, 


$90, 


$03 


.byte 


$02 


$07, 


$16, 


$07 


.byte 


$86 


$03, 


$C3, 


$10 


.byte 


$02 


$07, 


$16, 


$07 


.byte 


$47 


$06, 


$D2, 


$0F 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$47 


$06, 


$1E, 


$19 


.byte 


$8F 


$0C, 


$D1, 


$12 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$oc 


.byte 


$23 


$03, 


$D2, 


$0F 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$23 


$03, 


$D1, 


$12 


.byte 


$47 


$06, 


$D2, 


$0F 


.byte 


$23 


$03, 


$A2, 


$25 


.byte 


$47 


$06, 


$87, 


$21 


.byte 


$23 


$03, 


$A5, 


$1F 


.byte 


$3D 


$06, 


$51, 


$06 


Tunel4 : 










.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$87, 


$21 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$87, 


$21 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$87, 


$21 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$87, 


$21 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$3C, 


$32 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$3C, 


$32 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$3C, 


$32 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$61 


$08, 


$3C, 


$32 


.byte 


$47 


$06, 


$3C, 


$32 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$oc 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$47 


$06, 


$3C, 


$32 


.byte 


$7B 


$0C, 


$A3, 


$oc 


.byte 


$47 


$06, 


$3E, 


$2A 


.byte 


$7B 


$0C, 


$A3, 


$0C 


Tunel5 : 










.byte 


$FB 


$04, 


$EF, 


$13 


.byte 


$E3 


$09, 


$0B, 


$0A 


.byte 


$F1 


$04, 


$05, 


$05 


.byte 


$F7 


$09, 


$EF, 


$0E 


.byte 


$F1 


$04, 


$05, 


$05 


.byte 


$E3 


$09, 


$0B, 


$0A 


.byte 


$FB 


$04, 


$EF, 


$13 


.byte 


$E3 


$09, 


$0B, 


$0A 


.byte 


$A7 


$06, 


$EF, 


$13 


.byte 


$E3 


$09, 


$0B, 


$0A 


.byte 


$9D 


$06, 


$B1, 


$06 


.byte 


$F7 


$09, 


$C3, 


$10 


.byte 


$9D 


$06, 


$B1, 


$06 


.byte 


$E3 


$09, 


$0B, 


$0A 


.byte 


$A7 


$06, 


$EF, 


$13 


.byte 


$E3 


$09, 


$0B, 


$0A 


.byte 


$77 


$07, 


$EF, 


$13 


.byte 


$DB 


$0E, 


$F8, 


$0E 


.byte 


$6D 


$07, 


$81, 


$07 


.byte 


$EF 


$0E, 


$D1, 


$12 


.byte 


$6D 


$07, 


$81, 


$07 


.byte 


$DB 


$0E, 


$03, 


$0F 


.byte 


$77 


$07, 


$C3, 


$10 


.byte 


$DB 


$0E, 


$03, 


$0F 


.byte 


$EF 


$0E, 


$D1, 


$12 


.byte 


$CB 


$1D, 


$F3, 


$1D 


.byte 


$DB 


$0E, 


$03, 


$0F 


.byte 


$DF 


$1D, 


$EF, 


$13 


.byte 


$DB 


$0E, 


$03, 


$0F 


.byte 


$CB 


$1D, 


$F3, 


$1D 


.byte 


$EF 


$0E, 


$60, 


$16 


.byte 


$CB 


$1D, 


$F3, 


$1D 



17 



Tunel6: 










.byte 


$30 


$04, 


$A2, 


$25 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$30 


$04, 


$3E, 


$2A 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$30 


$04, 


$C3, 


$10 


.byte 


$61 


$08, 


$1E, 


$19 


.byte 


$26 


$04, 


$3A, 


$04 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$26 


$04, 


$3A, 


$04 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$26 


$04, 


$3A, 


$04 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$26 


$04, 


$3A, 


$04 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$30 


$04, 


$1E, 


$19 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$30 


$04, 


$C3, 


$10 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$30 


$04, 


$87, 


$21 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$30 


$04, 


$3E, 


$2A 


.byte 


$61 


$08, 


$A2, 


$25 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$7B 


$0C, 


$A3, 


$0C 


Tunel7: 










.byte 


$26 


$04, 


$3A, 


$04 


.byte 


$7B 


$0C, 


$A3, 


$0C 


.byte 


$00 


$00, 


$00, 


$00 


.byte 


$1C 


$0B, 


$44, 


$0B 


.byte 


$30 


$04, 


$8F, 


$0C 


.byte 


$E3 


$09, 


$0B, 


$0A 


.byte 


$54 


$09, 


$7C, 


$09 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$47 


$06, 


$E9, 


$07 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$00 


$00, 


$00, 


$00 


.byte 


$54 


$09, 


$7C, 


$09 


.byte 


$47 


$06, 


$61, 


$08 


.byte 


$C1 


$07, 


$E9, 


$07 


.byte 


$9D 


$06, 


$B1, 


$06 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$FB 


$04, 


$98, 


$05 


.byte 


$3D 


$06, 


$51, 


$06 


.byte 


$00 


$00, 


$00, 


$00 


.byte 


$9D 


$06, 


$B1, 


$06 


.byte 


$FB 


$04, 


$47, 


$06 


.byte 


$8E 


$05, 


$A2, 


$05 


.byte 


$F1 


$04, 


$05, 


$05 


.byte 


$8E 


$05, 


$A2, 


$05 


.byte 


$47 


$06, 


$0C, 


$07 


.byte 


$D5 


$07, 


$FD, 


$07 


.byte 


$00 


$00, 


$00, 


$00 


.byte 


$4D 


$08, 


$75, 


$08 


.byte 


$47 


$06, 


$E9, 


$07 


.byte 


$9D 


$06, 


$B1, 


$06 


.byte 


$F1 


$04, 


$05, 


$05 


.byte 


$AA 


$04, 


$BE, 


$04 


Tunel8: 










.byte 


$ED 


$05, 


$B5, 


$17 


.byte 


$C6 


$0B, 


$EE, 


$0B 


.byte 


$ED 


$05, 


$1F, 


$15 


.byte 


$DA 


$0B, 


$B5, 


$17 


.byte 


$E3 


$05, 


$F7, 


$05 


.byte 


$DA 


$0B, 


$1F, 


$15 


.byte 


$ED 


$05, 


$B5, 


$17 


.byte 


$DA 


$0B, 


$A5, 


$1F 


.byte 


$ED 


$05, 


$B5, 


$17 


.byte 


$C6 


$0B, 


$EE, 


$0B 


.byte 


$ED 


$05, 


$1F, 


$15 


.byte 


$DA 


$0B, 


$B5, 


$17 


.byte 


$E3 


$05, 


$F7, 


$05 


.byte 


$DA 


$0B, 


$1F, 


$15 


.byte 


$ED 


$05, 


$B5, 


$17 


.byte 


$DA 


$0B, 


$A5, 


$1F 


.byte 


$D5 


$07, 


$FD, 


$07 


.byte 


$BE 


$0F, 


$E6, 


$0F 


.byte 


$E9 


$07, 


$C3, 


$10 


.byte 


$D2 


$0F, 


$D1, 


$12 



18 



.byte 


$E9 


$07 


$C3, 


$10 


.byte 


$BE 


$0F 


$E6, 


$0F 


.byte 


$D5 


$07 


$FD, 


$07 


.byte 


$D2 


$0F 


$18, 


$0E 


.byte 


$D5 


$07 


$D2, 


$0F 


.byte 


$BE 


$0F 


$E6, 


$0F 


.byte 


$D5 


$07 


$FD, 


$07 


.byte 


$BE 


$0F 


$E6, 


$0F 


.byte 


$D5 


$07 


$FD, 


$07 


.byte 


$BE 


$0F 


$E6, 


$0F 


.byte 


$D5 


$07 


$FD, 


$07 


.byte 


$BE 


$0F 


$E6, 


$0F 


Tunel9: 










.byte 


$30 


$04 


$EF, 


$0E 


.byte 


$61 


$08 


$18, 


$0E 


.byte 


$30 


$04 


$8F, 


$0C 


.byte 


$61 


$08 


$8F, 


$0A 


.byte 


$26 


$04 


$3A, 


$04 


.byte 


$61 


$08 


$F7, 


$09 


.byte 


$30 


$04 


$8F, 


$0A 


.byte 


$4D 


$08 


$75, 


$08 


.byte 


$30 


$04 


$C3, 


$10 


.byte 


$61 


$08 


$EF, 


$0E 


.byte 


$30 


$04 


$8F, 


$0C 


.byte 


$61 


$08 


$8F, 


$0A 


.byte 


$26 


$04 


$3A, 


$04 


.byte 


$4D 


$08 


$75, 


$08 


.byte 


$26 


$04 


$3A, 


$04 


.byte 


$4D 


$08 


$75, 


$08 


.byte 


$98 


$05 


$C3, 


$10 


.byte 


$30 


$0B 


$EF, 


$0E 


.byte 


$98 


$05 


$18, 


$0E 


.byte 


$30 


$0B 


$8F, 


$0C 


.byte 


$8E 


$05 


$A2, 


$05 


.byte 


$1C 


$0B 


$44, 


$0B 


.byte 


$98 


$05 


$8F, 


$0C 


.byte 


$1C 


$0B 


$44, 


$0B 


.byte 


$47 


$06 


$EF, 


$0E 


.byte 


$8F 


$0C 


$18, 


$0E 


.byte 


$47 


$06 


$8F, 


$0C 


.byte 


$8F 


$0C 


$8F, 


$0A 


.byte 


$3D 


$06 


$51, 


$06 


.byte 


$8F 


$0C 


$F7, 


$09 


.byte 


$47 


$06 


$8F, 


$0A 


.byte 


$7B 


$0C 


$A3, 


$0C 


Tune20: 










.byte 


$AA 


$04 


$BE, 


$04 


.byte 


$54 


$09 


$7C, 


$09 


.byte 


$B4 


$04 


$D1, 


$12 


.byte 


$54 


$09 


$7C, 


$09 


.byte 


$B4 


$04 


$D1, 


$12 


.byte 


$54 


$09 


$7C, 


$09 


.byte 


$B4 


$04 


$D1, 


$12 


.byte 


$68 


$09 


$C3, 


$10 


.byte 


$B4 


$04 


$1F, 


$15 


.byte 


$54 


$09 


$7C, 


$09 


.byte 


$B4 


$04 


$D1, 


$12 


.byte 


$68 


$09 


$18, 


$0E 


.byte 


$AA 


$04 


$BE, 


$04 


.byte 


$68 


$09 


$D1, 


$12 


.byte 


$AA 


$04 


$BE, 


$04 


.byte 


$54 


$09 


$7C, 


$09 


.byte 


$8E 


$05 


$A2, 


$05 


.byte 


$1C 


$0B 


$44, 


$0B 


.byte 


$98 


$05 


$C3, 


$10 


.byte 


$1C 


$0B 


$44, 


$0B 


.byte 


$98 


$05 


$C3, 


$10 


.byte 


$1C 


$0B 


$44, 


$0B 


.byte 


$98 


$05 


$C3, 


$10 


.byte 


$30 


$0B 


$D1, 


$12 


.byte 


$0C 


$07 


$C3, 


$10 


.byte 


$04 


$0E 


$2C, 


$0E 


.byte 


$0C 


$07 


$18, 


$0E 


.byte 


$04 


$0E 


$2C, 


$0E 


.byte 


$02 


$07 


$16, 


$07 


.byte 


$04 


$0E 


$2C, 


$0E 


.byte 


$02 


$07 


$16, 


$07 


.byte 


$04 


$0E 


$2C, 


$0E 


Tune21: 










.byte 


$1C 


$04 


$44, 


$04 


.byte 


$61 


$08 


$C3, 


$10 


.byte 


$30 


$04 


$EF, 


$13 


.byte 


$61 


$08 


$60, 


$16 


.byte 


$30 


$04 


$1E, 


$19 


.byte 


$4D 


$08 


$75, 


$08 


.byte 


$1C 


$04 


$44, 


$04 


.byte 


$4D 


$08 


$75, 


$08 



19 



.byte 


$1C 


$04 


$44, 


$04 


.byte 


$61 


$08 


$C3, 


$10 


.byte 


$30 


$04 


$EF, 


$13 


.byte 


$61 


$08 


$60, 


$16 


.byte 


$30 


$04 


$1E, 


$19 


.byte 


$61 


$08 


$9C, 


$1A 


.byte 


$30 


$04 


$1E, 


$19 


.byte 


$61 


$08 


$EF, 


$13 


.byte 


$98 


$05 


$60, 


$16 


.byte 


$1C 


$0B 


$44, 


$0B 


.byte 


$84 


$05 


$AC, 


$05 


.byte 


$1C 


$0B 


$44, 


$0B 


.byte 


$47 


$06 


$EF, 


$13 


.byte 


$7B 


$0C 


$A3, 


$0C 


.byte 


$47 


$06 


$1E, 


$19 


.byte 


$7B 


$0C 


$C3, 


$10 


.byte 


$26 


$04 


$3A, 


$04 


.byte 


$4D 


$08 


$75, 


$08 


.byte 


$1C 


$04 


$44, 


$04 


.byte 


$4D 


$08 


$75, 


$08 


.byte 


$1C 


$04 


$44, 


$04 


.byte 


$4D 


$08 


$75, 


$08 


.byte 


$1C 


$04 


$44, 


$04 


.byte 


$4D 


$08 


$75, 


$08 


wrong : 










.byte 


$3F 


$3F 


$37, 


$7F 


.byte 


$6F 


$7F 


$6F, 


$1F 


.byte 


$FC 


$FC 


$EC, 


$FE 


.byte 


$F6 


$FE 


$F6, 


$F8 


.byte 


$E0 


$FF 


$EF, 


$FF 


.byte 


$EF 


$EF 


$FF, 


$E0 


.byte 


$07 


$FF 


$F7, 


$FF 


.byte 


$F7 


$F7 


$FF, 


$07 


.byte 


$00 


$00 


$18, 


$3C 


.byte 


$3C 


$3C 


$18, 


$00 


.byte 


$3E 


$63 


$C6, 


$C0 


.byte 


$E0 


$F1 


$7F, 


$3E 


.byte 


$00 


$00 


$3C, 


$66 


.byte 


$C6 


$C7 


$6C, 


$38 


.byte 


$00 


$00 


$3C, 


$66 


.byte 


$CC 


$C1 


$66, 


$3C 


.byte 


$30 


$30 


$32, 


$6D 


.byte 


$78 


$F0 


$D9, 


$CE 


.byte 


$60 


$60 


$61, 


$F3 


.byte 


$C6 


$C6 


$CE, 


$7B 


.byte 


$01 


$03 


$B0, 


$F3 


.byte 


$63 


$66 


$6E, 


$B7 


.byte 


$98 


$18 


$19, 


$33 


.byte 


$31 


$70 


$B6, 


$1B 


.byte 


$00 


$00 


$F0, 


$18 


.byte 


$80 


$60 


$33, 


$E3 


.byte 


$00 


$00 


$00, 


$00 


.byte 


$FF 


$00 


$00, 


$00 


.byte 


$18 


$18 


$18, 


$18 


.byte 


$18 


$18 


$18, 


$18 


.byte 


$00 


$00 


$00, 


$00 


.byte 


$0F 


$1C 


$18, 


$18 



Conclusion 




Well, as you see this is a very simple engine music (I can say that it is the most simple I had 
seen until now). However don' forget that the game is from 1984, so it was develop at the begin- 
ning of the Commodore time. 

The last thing you may want to know is that this engine use a maximum of 4 rasterlines when it 
is piking a new note, and only 1 rasterline in the other case. 
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Matt Gray' s Driller music routine 

by Stefano Tognon < ice00(5>libero.it > 



I 

Driller is one of the tune that I listen more often in the past. I built a special cable for recording 

the tune in the stereo from the C64, for listen it 
every day. 

Else this tune is that make me found the 
HVSC in the net in late ' 99/vhen I search for a 
Driller image file, and I so found that I' rmot the 
unique people that was listen to sid music. 

Th code presented is a my reverse engineer- 
ng work about the psid rip of Driller that is 
present in the HVSC. So this is probably not a 
100% version of the engine, as the rip did not 
contains the sound fx. However in the code you 
can see a not used notes pattern. 

I have not yet investigate how the Matt' sen- 
gine is evolved during the time, however Matt had used other music engine like RockMonitor 2/3 
and MusicMaster. 





The engine is based onto songs. There is a table {songs) shows below where there are to insert 
the pointers to the songs tracks. 

songs =* 

ltrl: 

.byte $00 

.byte <drillerMainTrl 

htrl: 

.byte $00 

.byte >drillerMainTrl 

ltr2: 

.byte $00 

.byte <drillerMainTr2 

htr2: 

.byte $00 

.byte >drillerMainTr2 

ltr3: 

.byte $00 

.byte <drillerMainTr3 

htr3: 

.byte $00 

.byte >drillerMainTr3 

Song is for setting the sound to zero volume, where other number set the tracks for that song 
(in Driller song 1 is the main theme). You have to add the pointers (low/high) if you want to have 
more songs used by the engine. 

For playing one song is simple: set his number in the songsNumber variable. The engine will 
start the selected song and the variable will be set to $AB (that means current song). 
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Tracks and pattern 




Each songs is made by 3 tracks and each tracks contains the number of the pattern to play. For 
examples: 

drillerMainTrl : 

.byte $01, $01, $07, $09 
.byte $09, $09, $01, $07 

In the first track of the song 1 , it is to play in sequence the patterns 01 , 01 , 07, 09 ... and so on. 
Two special pattern numbers are reserved: $FF restart the execution of the track, while the $FE 
stop the sound when it is reached. 

Each pattern is a pointer to data contains notes (as we will see in next paragraph), so this point- 
er are to be declared in two tables: patptl and patpth: 

; low pointers 
patptl =* 

.byte <pnt00 

.byte <pnt01 

.byte <pnt02 

;high pointers 
patpth =* 

.byte >pnt00 

.byte >pnt01 

.byte >pnt02 




Each patterns contain the sequences of notes to play. 



byte 


description 


$00 


Made gate = for the previous note 


$xx 


The xx number of note to play 


$FA nn 


Select instrument number nn 


$FB mm 


Make a negative portamento of value mm 


$FC pp 


Make a positive portamento of value pp 


$FD kk 


Set the duration of notes to kk 


$FF 


End of notes in this pattern 



Let I make some examples of pattern and data: 

pnt27 =* 

.byte $FA, $0C 

.byte $FD, $01 

.byte $31, $3D, $49, $3D 

.byte $31, $3D, $49, $3D 

.byte $FF 

In this pattern, it is selected to use the instrument $0C, then to use a very short sound duration 
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($01 ) and so to play notes number $31 , $3D, $49, $3D 

pntl8 =* 

.byte $FA, $13 

.byte $FD, $07 

.byte $FC, $37, $45 

.byte $FD, $2F 
.byte $47 

.byte $FD, $07 

.byte $FB, $7F, $47 



In this pattern it is select instrument number $13, length of $07, a positive portamento on note 
$45 with intensity $37. Then note $47 is played for $2F time and then, for $07 time a negative 
portamento of intensity $7F is apply to note $47. 

A special case is note $00. When this note is reached, the previous note is played with the same 
settings, but with the gate bit set to 0, so the release phase will start. You can heart this effect in 
the last long sound at the end of the tune. 



nstruments 



.fa 



The instruments contains many timbre effect like arpeggio, pulse wave routine and waveforms 
switch routine (useful for drum sound). Else it contains portamento and vibrato effects that can be 
apply to the instruments. 

The instruments are specified by compiling two tables of 8 bytes each. 

In the first there are to insert these values: 



Byte 


Descripition 


Hi/Lo pulse of Wave 
waveform 


If you use a rectangular waveform, this byte specify the pulse 
it may use. 

As the pulse is set by two sid registers, here there is only two 
nibble used as in this examples: 

value: xxyy (xx and yy = nibble) 

low of pulsed set: xxOO 

high of pulsed set: OOyy 


Control register 


This is the value used for setting the sid control register for 
this instrument 


Attack/Decay 


The AD sid value for the instrument 


Sustain/Release 


The SR sid value for the instrument 
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Byte 


Descripition 


Wave amplitude inc/dec 
value 


This value is for rectangular waveform and control how much 
increment/decrement must be used for a pulse variable effect 
(you can think it as the speed step of variation of the duty 
cycle). The direction of the variation is changed when 
reaching the max and min value for the pulse width. 

These value are hardcore in the engine and are 08 for the 
min and 0E for the max (so the high byte of pulse goes from 
$08 to $0E - pulse from 2048 to 3584-). 


hi/lo value for arpeggio 
effect 


This control the arpeggio effect to apply to the note. 

The value xxyy is to be see as: 

xx: the number of notes to add in sequence for the arpeggio 

yy: the pointer index to a table that contains the values to add 
to the note 

See the example for how the table can be compiled 


Control register 


Control register set at the end of the note, but in the same 
frame of when setting the new note. 


Instrument effects 


This is a bits field value that control witch effects to apply: 

bit 0: (1 ) a frequency/wave effect 

bit 1 : (2) re-set instrument pulse at each new note 

bit 3: (4) waveform switch 



The second table contains the other values that can be set for the instruments: 



Byte 


Description 


vibrato freq. value 


Value of the vibrato frequency used for add/sub 


vibrato length 


Length of the vibrato effect (see example) 


Control register 


Control used for the first two frames when effect of bit 2 is on, 
and even when effect of bit 1 is on 


portamento value 


Value of the portamento: it is added/subtracted from the LOW 
of HIGH byte of frequency according to the portamento flag 


portamento flag 


This byte specify the type of instrument portamento to 
achieve: 

$00: no portamento for the instrument 

$01: negative portamento LOW 

$02: positive portamento LOW 

$03. negative portamento HIGH 

$xx: positive portamento HIGH 



24 



Byte 


Description 


length 


duration cycle for effect 1 





Not used 





Not used 



A 



J 



rpeggio 



Now I illustrate how to use the arpeggio table. 
First, It can be create a table like this: 

PointerLo : 

.byte <TableO 
PointerHi : 

.byte >TableO 

.byte <Tablel 

.byte >Tablel 

.byte <Table2 

.byte >Table2 

Then it must be create the sequence of values (halftone) to add for the arpeggio: 



TableO: 

.byte $00, $08, $12 
Tablel: 

.byte $00, $08 
Table2 : 

.byte $00, $04, $08 



; length to use is 3 
; length to use is 2 
; length to use is 3 



So, a value of 30 in the arpeggio effect means: use arpeggio' sTableO and 3 values, while a 
value of 22 means: use arpeggio' s Table2 and 2 values (instead of the 3 inserted in the table). 

As you can see this method allow to use a very complex arpeggio effect in the tune 



Vibratt 



The vibrato routine is quite complex as it is very configurable. You can set the frequency value 
and the length (intensity) of the vibrato (the byte and 1 in the instrument table 2). 

Let me call V the first value and L the second one and F the actual frequency. The vibrato 
routine made so this cycle: 






1 


2 


3 


4 


F=F-V 

(L times) 

F=F-V 


F=F+V 

(L times) 

F=F+V 


F=F+V 

(L times) 

F=F+V 


F=F-V 

(L times) 

F=F-V 


F=F-V 

(L times) 

F=F-V 



The cycle start from 0, but when reached 4 it restart from position 1 . 

So as examples a value of V=10 and L=2 with an A4 note (440Hz) will produce this sequence of 
frequency: 
430, 420, 430, 440, 450, 460, 450, 440, 430, 420, 430, ecc. 
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Special Effects 



J 



As we see in the first instrument' stable, there are some effects that are activated by the last 
byte that are associated with the instrument: 

• bit 0: This bit activated a frequency/wave effect that use byte 5 of second table as parameter. 

• bit 1 : Use the wave pulse set in the instrument at each note that are to be played. If this bit is 
not set, the last pulsed that was used in the last note is replicated for the new note. 

• bit 2: Waveform switch: when this is set in the first two frames it is used the waveform that 
comes for the control register in the byte 3 of the second instrument table. Then the normal 
waveform is used. 

So, bit 1 is to be used for maintaining the timbre of the instrument for each note or for not having 
a difference in the sound from one note to another. Bit 2 is to be used for drums effect. 

Bit if for making a effect that I don' know how to call, but I can describe: essentially the sound 
at a given frequency is played with control register from byte 2 of second table and after with a 
noise sound that is played with a high frequency that is constantly decrease and putted out after 
an xor-operation to 23h constant. This sequence continue and the length of the decrease seems 
given by the 5° byte of the second table (but the code seems to use a different comportment) . 

So, an example: if control byte is C, and the cycle is of 1, with high frequency equals to F we 
have at each clock tick (note that if there' sportamento for the instrument, the F used is the actual 
value it were reached): 

D404=C D401=F 

D401=81h D401=(F-1) xor 23h 

and so one. 

If now the cycle is of 3, we have: 

D404=C D401=F 

D401=81h D401=(F-1) xor 23h 

D404=C D401=F 

D401=81h D401=(F-1) xor 23h 

D404=C D401=F 

D401=81h D401=(F-1) xor 23h 

Note that at the first tick, before setting D404=C the player set D404=control register of instru- 
ment at byte 1 of first table. 

Even if from this description seems that the length gives not a different result, it is possible that 
my analysis is faulty (I have not yet experimented this flag) 
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This code is a reverse engineering works, so contact the copyright owner author for making any 
business use of it. 



Driller by Matt Gray 1997 

estracted from the sid in HVSC 

NOTE: the prg goes at VIC speed as I use this for misuring rastertime: 

activate the CIA for having the true speed. 



. ifdef 

.byte 
.word 
.word $ 
.word $ 
.byte 
.byte 
.byte 
.byte 
.word $ 
.word $ 
.word $ 
. word 
.byte 
.byte 
.byte " 
.word $ 
.word $ 
.word $ 



id 

PSID 

0200 

7C00 

0000 

init 

init 

serv 

serv 

0100 

0100 

FFFF 

FFFF 

Dril 

Matt 

1988 

0000 

0000 

0000 



songs 
songs 
iceMusic 
iceMusic 



version 2 

data offset 

load address in cbm format 



1 song 
default song 



ler", 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 
Gray", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
Incentive", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 



.byte 00 
.byte 9 

.org $0900 

. else 



; PRG start address 
'.byte $01, $08 



; BASIC startup program 



.byte $0b,$08, $e8, $03, $9e, "2061", 0,0, 
.org 2061 



jsr initsongs 
jsr activeCialrq 

aaa: jmp aaa 

. endif 

makeMusic =* 

Ida songsNumber 
bne songNotZero 
sta $D418 
rts 



Select volume and filter mode (to 0) 



songNotZero : 


cmp 


#$AB 


beq 


makeCurrent 


imp 


initTr 


initMusic 


= * 


Ida 


#$00 


sta 


$D404 


sta 


$D40B 


sta 


$D412 


Ida 


#$0F 


sta 


$D418 


ldy 


#$00 


sty 


of fsetTrl 


sty 


offsetTr2 


sty 


offsetTr3 


sty 


actNoteLength 


sty 


actNoteLength+$7 


sty 


actNoteLength! $E 


sty 


ptnlndl 


sty 


ptnlnd2 


sty 


ptnlnd3 


my 




sty 


actSpeed 



current songs ? 

init the tracks 

clear control register 



Voice 1 
Voice 2 
Voice 3 



Control registers 
Control registers 
Control registers 



full volume 

Select volume and filter mode 



set track 1 position to the beginning 
set track 2 position to the beginning 
set track 3 position to the beginning 
actual note length duration voice 1 
actual note length duration voice 2 
actual note length duration voice 3 
set pattern index to the beginning 



actual cycle timer (speed of song) 
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jmp decCycleTimer 



makeCurrent : 

ldy instrlnd,x 
Ida instrl+7 , y 
and #$04 
beq noEffect4 



: index of instrument data 
load instrument effect 
is effect 4? 



; change the control register for making a sound effect 

controlEf f ect : 
effect 4 : 

Ida dur4Ef f , x 

beq applyNormal Control 



read duration of effect 4 switch 



dec dur4Ef f , x 

Ida instr2+2 , y 

sta $D404,x 

bne noEffect4 

applyNormalControl : 

Ida instrl+1, y 

sta $D404,x 

noEffect4 : 

Ida actSpeed 

bne noDelayEnd 

dec actNoteLength, x 

bmi readPattern 
noDelayEnd: 

jmp pulseTimbre 

; init tracks with selected songs 

initTr =* 

ldy songsNumber 

Ida ltrl,y 

sta currentTrl+O 

Ida htrl, y 

sta currentTrl+1 

Ida ltr2 , y 

sta currentTr2+0 

Ida htr2, y 

sta currentTr2+l 

Ida ltr3,y 

sta currentTr3+0 

Ida htr3,y 

sta currentTr3+l 

Ida songSpeed, y 

sta speed 

jmp initMusic 



dec duration of effect 4 switch 

control register 

Voice 1: Control registers 



control register 

Voice 1: Control registers 



actual cycle timer (speed of song) 

actual note length duration 
jump if note is finished 



load song number (1, 2) 

set current track 1 

current track 1 position (base) 

current track 1 position (base) 

set current track 2 

current track 2 position (base) 

current track 2 position (base) 

set current track 3 

current track 3 position (base) 

current track 3 position (base) 

read the song speed 

cycle timer (speed of song) 



; decrement the cycle timer (speed of song) 
decCycleTimer 



cpx #$0E 

bne skipDec 

dec actSpeed 

bpl skipDec 

Ida speed 

sta actSpeed 
skipDec : 

Ida #$AB 

sta songsNumber 

rts 



is voice 3 ? 

no, jump 

actual cycle timer (speed of song) 

jump if positive 

cycle timer (speed of song) 

actual cycle timer (speed of song) 

; current song 



; give in FD-FE the pattern pointer to a note 
readPattern : 

Ida currentTrl+O, x 

sta $FB 

Ida currentTrl+1 , x 

sta $FC 



ldy of fsetTrl,x 

Ida ($FB),y 

tay 

Ida patptl, y 

sta $FD 

Ida patpth, y 

sta $FE 

Ida #$FF 

sta controlSwitch 



current track 1 position (base) 



current track 1 position (base) 
FB-FC: track pattern pointer 



read actual track position (offset) 
read actual track pattern pointer value 

read pattern pointer low 

read pattern pointer high 
FD-FE: pattern pointer 



on ADS 



Ida #$00 

sta portaFlag, x 

sta arpeggioFlag, x 

sta vibratoFlag, x 



no portamento 
no arpeggio 
no vibrato 
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; read the pattern value of note to play 
readNextPat : 

ldy ptnlnd, x 

Ida <$FD),y 

cmp #$FD 

bcc notFD 



my 

inc ptnlnd, x 

Ida <$FD),y 

sta noteLength,x 



load pattern index of this voice 
read a pattern value 
note length 
jump if <$FD 



next pattern value index 
next (saved) pattern value index 
read a pattern value (note duration) 
store note length duration 



incPtnlnd: 




inc 


ptnlnd, x 


bne 


readNextPat 


notFD: 




cmp 


#$FB 


bcc 


notFB 


cmp 


#$FB 


bne 


isFC 



isFB: 



Ida #$01 



storePort : 

sta portaFlag, x 

iny 

inc ptnlnd, x 

Ida ($FD),y 

sta portaVal,x 

Ida #$00 

sta arpeggioFlag, x 

sta vibratoFlag, x 

beq incPtnlnd 



isFC: 



Ida #$02 

bne storePort 



notFB: 

cmp #$FA 

bcc newNote 

; select new instruments 

iny 

inc ptnlnd, x 

Ida ($FD),y 

asl 
asl 
asl 

sta instrlnd, x 

tay 

Ida instrl+0 , y 

pha 

and #$0F 

sta hilWave, x 

sta hi2Wave, x 

pla 

and #$F0 

sta lolWave, x 

sta lo2Wave, x 

jmp incPtnlnd 

newNote : 

sta rpNote, x 

Ida noteLength,x 

sta actNoteLength, x 

Ida #$00 

sta cyclelnt,x 

sta cycleEst, x 

Ida #$02 

sta dur4Eff,x 

ldy instrlnd, x 

Ida instrl+7 , y 

and #$02 

beq noEffect2 

ef fect2 : 

Ida lo2Wave, x 



next (saved) patter value index 

jump if <$FB 

jump if <>$FB 
negative portamento 



store in portamento flag 

next pattern value index 

next (saved) pattern value index 

read a pattern value 

store pattern value (portamento) 



no arpeggio 
no vibrato 



positive portamento 
store portamento value 



jump if <$FA 



next pattern value index 

next (saved) pattern value index 

read a pattern value (instrument index) 



index * 8 

index of instruments data 



read Hi/Lo of pulsation amplitude 



Wave form pulsation amplitude (hi byte) 
Wave form pulsation amplitude (hi byte) 



Wave form pulsation amplitude (lo byte) 
Wave form pulsation amplitude (lo byte) 



store packet note (readed note to play) 

note length duration 
actual note length duration 



set duration of effect 4 switch 

index of instrument data 
instrument effect 
is effect 2? 



Wave form pulsation amplitude (lo byte) 
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sta lolWave, x 



Wave form pulsation amplitude (lo byte) 



Ida hi2Wave, x 
sta hilWave, x 



noEf f ect2 : 




Ida 


rpNote, x 


bne 


notZero 


Ida 


pNote, x 


sta 


rpNote, x 


Ida 


#$00 


sta 


pNote, x 


ldy 


instrlnd, x 


dec 


controlSwitch 


bne 


setVoice 


notZero : 




sta 


pNote, x 


tay 




Ida 


frequencyHi, y 


sta 


$D401,x 


sta 


freqHilEff ,x 


sta 


f reqPortHi, x 


Ida 


f requencyLo, y 


sta 


$D400,x 


sta 


f reqLolEf f , x 


sta 


f reqPortLo, x 


ldy 


instrlnd, x 


Ida 


instrl+6, y 


sta 


$D404,x 


setVoice : 




Ida 


instrl+1 , y 


and 


controlSwitch 


sta 


$D404,x 


Ida 


instrl+2 , y 


sta 


$D405,x 


Ida 


instrl+3, y 


sta 


$D406,x 


Ida 


lolWave, x 


sta 


$D402,x 


Ida 


hilWave, x 


sta 


$D403,x 


inc 


ptnlnd, x 


ldy 


ptnlnd, x 


Ida 


($FD) ,y 


cmp 


#$FF 


bne 


noEndPattern 


endPattern 




Ida 


'#$00 


sta 


ptnlnd, x 


inc 


of fsetTrl, x 


ldy 


of fsetTrl, x 


Ida 


($FB) ,y 


cmp 


#$FF 


bne 


noEndTrack 


endTrack : 




Ida 


#$00 


sta 


of fsetTrl, x 


beq 


noEndPattern 


noEndTrack 




cmp 


"#$FE 


bne 


noEndPattern 


Ida 


#$00 


sta 


songsNumber 


rts 




noEndPattern : 


Ida 


pNote, x 


beq 


pulseTimbre 


ldy 


instrlnd, x 


Ida 


portaFlag, x 


bne 


skipSetPort 


Ida 


instr2+4 , y 



Wave form pulsation amplitude (hi byte) 
Wave form pulsation amplitude (hi byte) 



readed note to play 



note to play 
readed note to play 

note to play 

index of instrument data 



note to play 



Voice 1 
Voice 1 
Voice 1 



Voice 1 
Voice 1 
Voice 1 



Frequency control (hi byte) 

Frequency control (hi byte) for effect 1 

Frequency control (hi byte) for portamento 



Frequency control (lo byte) 
Frequency control (lo byte) 
Frequency control (lo byte) for portamento 



index of instrument data 
control register (ADS off) 
Voice 1: Control registers 



control register 

change ADS 

Voice 1: Control registers 

read A/D value 

Generator 1 : Attack/Decay 

read S/R value 

Generator 1: Sustain/Release 

Wave form pulsation amplitude (lo byte) 

Voice 1: Wave form pulsation amplitude (lo byte) 

Wave form pulsation amplitude (hi byte) 

Voice 1: Wave form pulsation amplitude (hi byte) 

next (saved) pattern value index 
load pattern value index 
read a pattern value 

end of pattern 

set pattern value index to the beginning 
next track position (offset) 



read next track pattern pointer 
end of pattern ? 



set track position to the beginning 



end of song (no repeat) 



nothing song to play 



note to play 

index of instrument data 
portamento flag 

read portamento flag for the instrument 
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beq skipPortalnstr 



sta portaFlag,x 
Ida instr2+3, y 
sta portaVal,x 
skipSetPort : 

jmp testMakePortamento 



store portamento flag 
read portamento value 
portamento value 



skipPortalnstr : 

Ida instrl+5, y 

beq skipArpeggioInit 

jmp arpeggiolnit 



hi/lo value for arpeggio 



skipArpeggioInit : 

sta arpeggioFlag, x 

Ida instr2+0 , y 
beq noOscEf feet 
jmp vibratolnit 



read oscillating frequency value 



noOscEf feet : 

sta vibratoFlag, x 
jmp decCycleTimer 



no vibrato 



; pulse-wi 


dth timbre routine 


pulseTimbre : 


Ida 


instrl+4 , y 


sta 


ampVar 


beq 


afterWave Shifting 


Ida 


pulseDirFlag, x 


bne 


decWave 


clc 




Ida 


lolWave, x 


adc 


ampVar 


sta 


lolWave, x 


sta 


$D402,x 



Wave amplitude inc/dec value 
store for late use 



Wave form pulsation amplitude (lo byte) 

Wave form pulsation amplitude (lo byte) 

Voice 1: Wave form pulsation amplitude (lo byte) 



Ida hilWave, x 

adc #$00 

sta hilWave, x 

sta $D403,x 



Wave form pulsation amplitude (hi byte) 

Wave form pulsation amplitude (hi byte) 

Voice 1: Wave form pulsation amplitude (hi byte) 



clc 




emp 


#$0E 


bec 


afterWave Shifting 


mc 


pulseDirFlag, x 


bne 


afterWave Shifting 


decWave : 




Ida 


lolWave, x 


sec 




sbc 


ampVar 


sta 


lolWave, x 


sta 


$D402,x 



Wave form pulsation amplitude (lo byte) 



Wave form pulsation amplitude (lo byte) 

Voice 1: Wave form pulsation amplitude (lo byte) 



Ida hilWave, x 

sbc #$00 

sta hilWave, x 

sta $D403,x 



Wave form pulsation amplitude (hi byte) 

Wave form pulsation amplitude (hi byte) 

Voice 1: Wave form pulsation amplitude (hi byte) 



clc 

emp #$08 

bes afterWave Shifting 

dec pulseDirFlag, x 



af terWaveShif ting : 

Ida arpeggioFlag, x 
beq testVibratoEf f 



test for made arpeggio 



make the arpeggio 



makeArpeggio : 

Ida lowlnd, x 



asl 
tay 

Ida 
sta 
Ida 
sta 



pointerLo, y 
adcArp+1 
pointerHi, y 
adcArp+2 



low index for arpeggio table 

low pointer of arpeggio table 
high pointer of arpeggio table 



Ida actualCycle, x 

emp limitCycle,x 

bne noResetCylce 

Ida #$00 
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sta actualCycle, x 



noResetCyl 


ce : 


tay 




Ida 


rpNote, x 


clc 




adcArp : 




adc 


TableArpO, y 


tay 




Ida 


frequencyLo, y 


sta 


$D400,x 


Ida 


frequencyHi, y 


sta 


$D401,x 


mc 


actualCycle, x 


jmp 


decCycleTimer 



readed note to play 

add the tone to note to play 
calciulate the new freq. to use 

Voice 1: Frequency control (lo byte) 

Voice 1: Frequency control (hi byte) 



testVibratoEf f : 

Ida vibratoFlag, x 
bne vibratoEf f ect 
jmp testMakePortamento 



load vibrato flag 

is to performe vibrato? 



; make the 


vibrato 


vibratoEf feet : 


Ida 


countVibFlag, x 


beq 


sbcVib 


emp 


#$03 


bec 


adcVib 


sec 




Ida 


f reqPortLo, x 


sbc 


oscilFreq, x 


sta 


f reqPortLo, x 


sta 


$D400,x 


Ida 


f reqPortHi, x 


sbc 


#$00 


sta 


f reqPortHi, x 


sta 


$D401,x 


dec 


actualVibCount , x 


bne 


exitVibl 


Ida 


vibCount , x 


sta 


actualVibCount , x 


inc 


countVibFlag, x 


Ida 


countVibFlag, x 


emp 


#$05 


bec 


exitVibl 


Ida 


#$01 


sta 


countVibFlag, x 


exitVibl : 




jmp 


decCycleTimer 


sbcVib: 




sec 




Ida 


f reqPortLo, x 


sbc 


oscilFreq, x 


sta 


f reqPortLo, x 


sta 


$D400,x 


Ida 


f reqPortHi, x 


sbc 


#$00 


sta 


f reqPortHi, x 


sta 


$D401,x 


dec 


actualVibCount , x 


bne 


exitvib2 


Ida 


vibCount, x 


sta 


actualVibCount, x 


inc 


countVibFlag, x 


exitvib2 : 




jmp 


decCycleTimer 


adcVib : 




clc 




Ida 


f reqPortLo, x 


adc 


oscilFreq, x 


sta 


f reqPortLo, x 


sta 


$D400,x 


Ida 


f reqPortHi, x 


adc 


#$00 


sta 


f reqPortHi, x 


sta 


$D401,x 



Voice 1: Frequency control (lo byte) for portamento 
frequency of oscillation 

Voice 1: Frequency control (lo byte) for portamento 

Voice 1: Frequency control (lo byte) 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) 



read stored value of count 
set to actual 



Voice 1: Frequency control (lo byte) for portamento 
frequency of oscillation 

Voice 1: Frequency control (lo byte) for portamento 

Voice 1: Frequency control (lo byte) 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) 



read stored count value 



Voice 1: Frequency control (lo byte) for portamento 
frequency of oscillation 

Voice 1: Frequency control (lo byte) for portamento 

Voice 1: Frequency control (lo byte) 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) 



dec actualVibCount, x 
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bne noEffectl 



Ida vibCount,x 

sta actualVibCount , x 

inc countVibFlag, x 

bne noEffectl 

jmp decCycleTimer 

testMakePortamento : 

Ida portaFlag,x 

beq testEffectl 

cmp #$01 

beq negativePortamento 

cmp #$02 

beq positivePortamento 

cmp #$03 

beq negativePortamentoHI 

clc 

Ida freqPortHi,x 

adc portaVal,x 

sta freqPortHi,x 

sta $D401,x 

jmp testEffectl 

negativePortamento : 

clc 



Ida 
sbc 
sta 
sta 



f reqPortLo, x 
portaVal, x 
f reqPortLo, x 
$D400,x 



Ida freqPortHi,x 

sbc #$00 

sta freqPortHi,x 

sta $D401,x 

jmp testEffectl 

negativePortamentoHI : 
sec 



Ida 
sbc 
sta 
sta 
jmp 



f reqPortHi, x 
portaVal, x 
f reqPortHi, x 
$D401,x 
testEffectl 



positivePortamento : 

clc 



Ida 
adc 
sta 
sta 



f reqPortLo, x 
portaVal, x 
f reqPortLo, x 
$D400,x 



Ida f reqPortHi, x 

adc #$00 

sta f reqPortHi, x 

sta $D401,x 



testEffectl: 



ldy 


instrlnd, x 


Ida 


instrl+7 , y 


and 


#$01 


beq 


noEffectl 


imp 


effectl 


noEffectl : 




imp 


decCycleTimer 



; read stored count value 

; portamento flag 

; negative portamento 

; positive portamento 



; Voice 1: Frequency control (hi byte) for portamento 

; add portamento value 

; Voice 1: Frequency control (hi byte) for portamento 

; Voice 1: Frequency control (hi byte) 



; Voice 1: Frequency control (lo byte) for portamento 

; sub portamento value 

; Voice 1: Frequency control (lo byte) for portamento 

; Voice 1: Frequency control (lo byte) 

; Voice 1: Frequency control (hi byte) for portamento 

; Voice 1: Frequency control (hi byte) for portamento 

; Voice 1: Frequency control (hi byte) 



; Voice 1: Frequency control (hi byte) for portamento 

; sub portamento value 

; Voice 1: Frequency control (hi byte) for portamento 

; Voice 1: Frequency control (hi byte) 



Voice 1: Frequency control (lo byte) for portamento 
add portamento value 

Voice 1: Frequency control (lo byte) for portamento 

Voice 1: Frequency control (lo byte) 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) for portamento 

Voice 1: Frequency control (hi byte) 



index of instrument data 
load instrument effect 
is effect 1? 



Voice 1 

vibrato flag: 1= on 
arpeggio flag: 1= on 
portaFlag : 



neg . port . HiLo 

pos . port . HiLo 

neg . port . Hi 

pos . port . Hi 



pulseDirFlag : 1 dec, inc 



vibratoFlag : 
.byte $00 

arpeggioFlag: 



vibrato flag (l=on) 



1= effect on 
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.byte $00 



portaFlag: 
.byte $00 

cyclelnt : 
.byte $00 

cycleEst : 
.byte $00 

ptnlnd: 
ptnlndl : 
.byte $06 

pulseDirFlag: 
.byte $00 



Voice 2 : 



.byte $00 
.byte $00 
.byte $00 
.byte $00 
.byte $00 
ptnlnd2 : 
.byte $06 
.byte $00 



Voice 3 : 



.byte $00 
.byte $00 
.byte $00 
.byte $00 
.byte $00 
ptnlnd3 : 
.byte $00 
.byte $01 



portamento flag (voice 1) 
internal cycle for effect 1 

external cycle for effect 1 



pattern value index (voice 1) 



portamento flag (voice 2) 



pattern value index (voice 2) 



portamento flag 



pattern value index (voice 3) 



Voice 1: 



portaVal : 
.byte $00 

rOCE4: 

.byte $00 

noteLength : 

.byte $3F 

instrlnd: 
.byte $08 

lolWave : 
.byte $BB 

lo2Wave : 
.byte $90 

hilWave : 
.byte $02 



Voice 2 : 



.byte $00 

.byte $00 

.byte $3F 

.byte $08 

.byte $BB 

.byte $90 

.byte $02 



Voice 3: 



.byte $00 

.byte $00 

.byte $3F 

.byte $20 

.byte $F0 

.byte $90 

.byte $0C 



; portamento value (voice 1) 

; not used 

; note length duration (voice 1) 

; index of instrument data (voice 1) 

; Wave form pulsation amplitude (lo byte) 

; Wave form pulsation amplitude (lo byte) 

; Wave form pulsation amplitude (hi byte) 



portamento value (Voice 2) 

note length duration (voice 2) 
index of instrument data (voice 2) 
Wave form pulsation amplitude (lo byte) 
Wave form pulsation amplitude (lo byte) 
Wave form pulsation amplitude (hi byte) 



portamento value (voice 3) 

note length duration (voice 3) 
index of instrument data (voice 3) 
Wave form pulsation amplitude (lo byte) 
Wave form pulsation amplitude (lo byte) 
Wave form pulsation amplitude (hi byte) 
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Voice 1 : 



hi2Wave : 
.byte $00 

lowlnd: 

.byte $00 

currentTrl : 

.byte <drillerMainTrl 
.byte >drillerMainTrl 

offsetTrl: 
.byte $00 

rOCFD: 

.byte $00 

actNoteLength =* 
.byte $3C 



Voice2 : 



.byte $00 

.byte $00 
currentTr2 : 

.byte <drillerMainTr2 

.byte >drillerMainTr2 
offsetTr2: 

.byte $00 

.byte $00 

.byte $3C 



Voice 3: 



.byte $06 

.byte $00 
currentTr3 : 

.byte <drillerMainTr3 

.byte >drillerMainTr3 
offsetTr3: 

.byte $02 

.byte $00 

.byte $3C 

rODOD: 

.byte $00 
.byte $00 

songsNumber = * 

.byte $AB 

speed: 

.byte $03 

ampVar : 

.byte $A0 

actSpeed: 
.byte $00 

controlSwitch: 
.byte $FE 



Wave form pulsation amplitude (hi byte) 
low index for freq. instrument effect 

current track 1 position (base) 

current track 1 position (offset) 
not used 

actual note length duration 



low index for freq. instrument effect 
current track 2 position (base) 



current track 2 position (offset) 
actual note length duration 



low index for freq. instrument effect 
current track 3 position (base) 



current track 3 position (offset) 
actual note length duration 

0=nothing l=first/ $AB current ? 

cycle timer (cylce for having 1 note tick) 
wave amplitude variation 

actual cycle timer (for having 1 note tick) 
set ON/OFF the ADS 



Voice 1 



f reqPortLo : 

.byte $47 

freqLolEff : 
.byte $47 

freqHilEff : 
.byte $06 

rpNote = * 
.byte $1F 

f reqPortHi : 

.byte $06 

limitCycle : 
.byte $00 



frequency of portamento lo 

Voice 1: Frequency control (lo byte) 

freq lo for instrument effect 1 ? 
Voice 1: Frequency control (lo byte) 

freq hi for instrument effect 1 
Voice 1: Frequency control (hi byte) 



Voice 1 : readed note to play 

frequency of portamento Hi 

Voice 1: Frequency control (hi byte) 

limit of cycle for arpeggio 
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actualCycle : 
.byte $00 



actual cycle for arpeggio 



Voice 2 



.byte $23 

.byte $23 

.byte $03 

.byte $13 

.byte $03 

.byte $00 

.byte $00 



frequency of portamento lo 
freq lo for instrument effect 
freq hi for instrument effect 
Voice 2 : readed note to play 
frequency of portamento Hi 
limit of cycle for arpeggio 
actual cycle for arpeggio 



Voice 3 



.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 



frequency of portamento lo 
freq lo for instrument effect 
freq hi for instrument effect 
Voice 3: readed note to play 
frequency of portamento Hi 



Voice 1 



countVibFlag : 

.byte $00 

oscilFreq: 
.byte $00 

vibCount : 
.byte $00 

actualVibCount : 
.byte $00 

rOD2D: 

.byte $00 
.byte $00 

pNote =* 

.byte $1F 



; counter flag: use for add/sbc of vibrato 

; frequency of oscillator (for vibrato) 

; value of vibrato count 

; actual value of vibrato count intensity 



note to play 



Voice 2 



.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $13 



note to play 



Voice 3 



.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 



note to play 



Voice 1 



dur4Eff : 

.byte $02 
.byte $00 
.byte $00 
.byte $00 
.byte $00 
.byte $00 
.byte $00 



duration of effect 4 switch 



Voice 2 



.byte $02 
.byte $00 
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.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 



Voice 3 



.byte $02 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

freq. low 



f reque 

.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 

f reque 

.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 



ncyLo : 
e 

e 
e 
e 
e 
e 



$0C, 


$1C 


$2D, 


$51, 


$66 


$7B, 


$A9, 


$C3 


$DD, 


$18, 


$38 


$5A, 


$A3, 


$CC 


$F6, 


$53, 


$86 


$BB, 


$30, 


$70 


$B4, 


$47, 


$98 


$ED, 


$A7, 


$0C 


$77, 


$61, 


$E1 


$68, 


$8F, 


$30 


$DA, 


$4E, 


$18 


$EF, 


$C3, 


$C3 


$D1, 


$1F, 


$60 


$B5, 


$9C, 


$31 


$DF, 


$87, 


$86 


$A2, 


$3E, 


$C1 


$6B, 


$39, 


$63 


$BE, 


$0F, 


$0C 


$45, 


$7D, 


$83 


$D6, 


$73, 


$C7 


$7C, 


$1E, 


$18 


$8B, 


$FA, 


$06 


$AC, 


$E6, 


$8F 


$F8, 



ncyHi : 

e 

e 

e 

e 



$01 


$01 


$01, 


$01 


$01 


$01, 


$01 


$01 


$01, 


$02 


$02 


$02, 


$02 


$02 


$02, 


$03 


$03 


$03, 


$04 


$04 


$04, 


$05 


$05 


$05, 


$06 


$07 


$07, 


$08 


$08 


$09, 


$0A 


$0B 


$0B, 


$0D 


$0E 


$0E, 


$10 


$11 


$12, 


$15 


$16 


$17, 


$1A 


$1C 


$1D, 


$21 


$23 


$25, 


$2A 


$2C 


$2F, 


$35 


$38 


$3B, 


$43 


$47 


$4B, 


$54 


$59 


$5E, 


$6A 


$70 


$77, 


$86 


$8E 


$96, 


$A8 


$B3 


$BD, 


$D4 


$E1 


$EE, 



$3E 
$91 
$FA 
$7D 
$23 
$F4 
$FB 
$47 
$E9 
$F7 
$8F 
$D2 
$EF 
$1E 
$A5 
$DF 
$3C 
$4B 
$BF 
$79 
$97 
$7E 
$F3 
$2E 



$01 
$01 
$01 
$02 
$03 
$03 
$04 
$06 
$07 
$09 
$0C 
$0F 
$13 
$19 
$1F 
$27 
$32 
$3F 
$4F 
$64 
$7E 
$9F 
$C8 
$FD 



activeCialrq 



sei 
Ida 
sta 
Ida 
sta 
ldx 
stx 
inx 
stx 
cli 
rts 



#<servicelrq 

$0314 

#>servicelrq 

$0315 

#$00 

$DC0E 

$D01A 



servicelrq = * 

Ida #$01 
sta $D019 
Ida #$82 
sta $D012 
Ida #$1B 



C-0 C#-0 D-0 D#-0 



Definition of the used 
frequencies 



Vector: Hardware Interrupt (IRQ) 
Vector: Hardware Interrupt (IRQ) 
Control register A of CIA #1 
IRQ mask register 



Interrupt indicator register 
Reading/Writing IRQ balance value 
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sta 


$D011 


Ida 


#$01 


sta 


$D020 


]sr 


serviceMusic 


dec 


$D020 


imp 


$EA31 


eMusic =* 


ldx 


#$00 


]sr 


makeMusic 


ldx 


#$07 


]sr 


makeMusic 


ldx 


#$0E 


]sr 


makeMusic 


rts 





VIC control register 

Border color 

Border color 

Default hardware interrupt (IRQ) 

Voice 1 
Voice 2 
Voice 3 



.byte "(C) 1987 MATT GRAY" 



Init the arpeggio routine 



arpeggiolnit : 

pha 

and #$0F 

sta lowlnd, x 

pla 

and #$F0 

lsr a 

lsr a 

lsr a 

lsr a 

sta limitCycle, x 

Ida #$00 

sta actualCycle, x 

Ida #$01 

sta arpeggioFlag, x 

Ida #$00 

sta vibratoFlag, x 

jmp decCycleTimer 



made on arpeggio 



no vibrato 



Init the vibrato routine 



vibratolnit : 

sta oscilFreq,x 

Ida instr2+l, y 

sta vibCount, x 

sta actualVibCount , x 

Ida #$00 

sta arpeggioFlag, x 

sta countVibFlag, x 

Ida #$01 

sta vibratoFlag, x 

jmp decCycleTimer 



oscillating frequency value 

read the count intensity for vibrato 

save count value 



make arpeggio off 



make vibrato 



instruments part 1 



Hi/Lo of Wave form amplitude 

Control register 

A/D value 

S/R value 

Wave amplitude inc/dec value 

hi/lo value for arpeggio 

Control register 

instrument effect 

1 : a frequency effect 

2: a pulse wave effect 

4 : switch between waveform 



The first table of 
instruments definition 



instrl =* 

.byte $00 

.byte $81 

.byte $0A 

.byte $00 

.byte $00 

.byte $00 

.byte $80 

.byte $01 

.byte $90 

.byte $41 

.byte $FE 

.byte $0D 

.byte $25 

.byte $00 



Wave form amplitude (Hi/Lo) 
Control : Noise, ADS on 
A/D 
S/R 



Control: Noise, ADS off 
instrument effect 
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byte $40 
byte $02 

byte $00 
byte $81 
byte $FD 
byte $00 
byte $00 
byte $00 
byte $80 
byte $00 

byte $30 
byte $41 
byte $0E 
byte $00 
byte $30 
byte $00 
byte $40 
byte $02 

byte $96 
byte $41 
byte $0E 
byte $00 
byte $A0 
byte $00 
byte $40 
byte $02 

byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $32 
byte $41 
byte $00 
byte $40 
byte $F0 
byte $00 
byte $40 
byte $02 

byte $00 
byte $81 
byte $08 
byte $00 
byte $00 
byte $00 
byte $80 
byte $01 

byte $00 
byte $11 
byte $0D 
byte $00 
byte $00 
byte $00 
byte $10 
byte $00 

byte $90 
byte $41 
byte $0E 
byte $00 
byte $25 
byte $00 
byte $40 
byte $02 

byte $2E 
byte $43 
byte $00 
byte $60 
byte $F5 
byte $00 
byte $40 
byte $04 

byte $70 
byte $41 
byte $0A 
byte $00 
byte $40 
byte $00 
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byte $40 
byte $02 

byte $00 
byte $15 
byte $03 
byte $00 
byte $00 
byte $20 
byte $14 
byte $04 

byte $40 
byte $41 
byte $00 
byte $90 
byte $01 
byte $00 
byte $40 
byte $00 

byte $00 
byte $15 
byte $EE 
byte $00 
byte $00 
byte $00 
byte $14 
byte $00 

byte $98 
byte $41 
byte $09 
byte $00 
byte $00 
byte $00 
byte $40 
byte $01 

byte $21 
byte $41 
byte $0A 
byte $00 
byte $30 
byte $00 
byte $40 
byte $06 

byte $21 
byte $41 
byte $0A 
byte $00 
byte $30 
byte $00 
byte $40 
byte $06 

byte $31 
byte $41 
byte $0E 
byte $00 
byte $10 
byte $00 
byte $40 
byte $02 

byte $23 
byte $41 
byte $00 
byte $A0 
byte $50 
byte $00 
byte $40 
byte $00 

byte $91 
byte $41 
byte $0A 
byte $00 
byte $30 
byte $00 
byte $40 
byte $06 

byte $F1 
byte $41 
byte $0C 
byte $00 
byte $40 
byte $00 
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.byte $40 
.byte $06 



instruments part 2 



oscillating frequency value (for vibrato) 

length of vibrato intensity (for vibrato) 

Control register for effect 4 

portamento value I 

portamento flag (l=on) | portamento for the instrument 

duration cycle for effect 1 

not used 

not used 



instr2 = * 

.byte $00 

.byte $00 

.byte $11 

.byte $00 

.byte $00 

.byte $03 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $81 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $06 

.byte $50 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $30 

.byte $02 

.byte $81 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $40 

.byte $02 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $81 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $11 

.byte $41 

.byte $01 

.byte $01 

.byte $00 

.byte $00 

.byte $50 

.byte $02 



Control: " , on ADS 
portamento value 
portamento flag 

not used 
not used 



The second table for 
instruments definition 
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byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $00 
byte $00 
byte $81 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $20 
byte $02 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $00 
byte $00 
byte $81 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $40 
byte $02 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $00 
byte $00 
byte $41 
byte $F0 
byte $01 
byte $01 
byte $00 
byte $00 

byte $10 
byte $02 
byte $43 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 
byte $00 

byte $A0 
byte $02 
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.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $60 




.byte $02 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $43 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $0A 




.byte $02 




.byte $43 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




.byte $00 




effectl: 




Ida 


freqHilEff , x 


beq 


noDec 


dec 


freqHilEff, x 


noDec : 




Ida 


cyclelnt , x 


beq 


jmpTestEndCycle 


dec 


cyclelnt , x 


Ida 


#$81 


sta 


$D404,x 


Ida 


freqHilEff ,x 


eor 


#$23 


sta 


$D401,x 


jmp 


decCycleTimer 



Voice 1: Frequency control (hi byte) for effect 1 
Voice 1: Frequency control (hi byte) for effect 1 



noise + ADS 

Voice 1: Control registers 

Voice 1: Frequency control (hi byte) for effect 1 

Voice 1: Frequency control (hi byte) 



jmpTestEndCycle : 

jmp testEndCycle 



hangeFreq: 




Ida 


f reqPortHi, x 


sta 


$D401,x 


sta 


freqHilEff, x 


Ida 


instr2+2 , y 


sta 


$D404,x 


jmp 


decCycleTimer 



testEndCycle : 

Ida cycleEst,x 
cmp instr2+5,y 
beq resetCycle 

inc cyclelnt, x 
inc cycleEst,x 
bne changeFreq 

resetCycle : 

Ida #$00 

sta cycleEst,x 

sta cyclelnt, x 

beq changeFreq 

songSpeed =* 
.byte $00 
.byte $03 
.byte $03 

; $FF : repeat the track 
; $FE : end of music 

drillerMainTrl : 

.byte $01, $01, $07, $09 

.byte $09, $09, $01, $07 

.byte $07, $0F, $0F, $0F 

.byte $0F, $0F, $0F, $03 

.byte $03, $0F, $0F, $13 



Voice 1 
Voice 1 
Voice 1 



Frequency control (hi byte) for portamento 

Frequency control (hi byte) 

Frequency control (hi byte) for effect 1 



control register 

Voice 1 : Control registers 



duration cycle for effect 1 



cycle for having note tick (for each songs) 



The definition of the 
patterns used by each 
traks are from here 
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.byte 


$13 


$0F 


$13 


$0F 


.byte 


$13 


$0F 


$13 


$0F 


.byte 


$13 


$0F 


$0F 


$0F 


.byte 


$0F 


$0F 


$0F 


$0F 


.byte 


$0F 


$0F 


$0F 


$0F 


.byte 


$0F 


$0F 


$0F 


$0F 


.byte 


$0F 


$0F 


$0F 


$0F 


.byte 


$0F 


$0F 


$0F 


$0F 


.byte 


$0F 


$0F 


$1B 


$1D 


.byte 


$1E 


$0F 


$1B 


$1D 


.byte 


$1E 


$0F 


$1B 


$1D 


.byte 


$1E 


$12 


$12 


$12 


.byte 


$12 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$24 


$24 


$21 


.byte 


$21 


$08 


$08 


$28 


.byte 


$00 


$00 


$00 


$00 


.byte 


$00 


$FF 






drillerMain 


rr2: 






.byte 


$03 


$03 


$08 


$0A 


.byte 


$0D 


$0D 


$0D 


$0D 


.byte 


$08 


$07 


$0E 


$0E 


.byte 


$0E 


$0E 


$0E 


$0E 


.byte 


$0E 


$0E 


$05 


$12 


.byte 


$12 


$12 


$12 


$14 


.byte 


$15 


$14 


$15 


$14 


.byte 


$15 


$14 


$15 


$08 


.byte 


$17 


$17 


$17 


$17 


.byte 


$17 


$17 


$17 


$17 


.byte 


$17 


$17 


$17 


$17 


.byte 


$07 


$07 


$1F 


$1F 


.byte 


$1F 


$1F 


$07 


$07 


.byte 


$00 


$00 


$25 


$25 


.byte 


$26 


$25 


$27 


$27 


.byte 


$27 


$27 


$27 


$27 


.byte 


$27 


$27 


$06 


$06 


.byte 


$06 


$06 


$06 


$06 


.byte 


$06 


$06 


$06 


$06 


.byte 


$28 


$00 


$00 


$00 


.byte 


$00 


$FF 






drillerMain 


rr3: 






.byte 


$00 


$00 


$00 


$00 


.byte 


$04 


$06 


$06 


$0C 


.byte 


$0B 


$0C 


$0B 


$0C 


.byte 


$0B 


$06 


$06 


$06 


.byte 


$06 


$06 


$06 


$06 


.byte 


$06 


$06 


$06 


$06 


.byte 


$06 


$06 


$06 


$0F 


.byte 


$0F 


$10 


$11 


$0E 


.byte 


$0E 


$0E 


$0E 


$0E 


.byte 


$0E 


$0E 


$0E 


$0E 


.byte 


$0E 


$0E 


$0E 


$16 


.byte 


$07 


$07 


$07 


$18 


.byte 


$19 


$19 


$1A 


$1A 


.byte 


$08 


$08 


$1C 


$08 


.byte 


$08 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$23 


$23 


$22 


.byte 


$22 


$07 


$07 


$0F 


.byte 


$0F 


$0F 


$0F 


$29 


.byte 


$00 


$00 


$00 


$00 


.byte 


$FF 









pattern data 



format : 




00 




release gate 


XX 




note xx 


$FA 


nn 


select instrument nn 


$FB 


mm 


negative portamento (mm) 


$FC 


kk 


positive portamento (kk) 


$FD 


kk 


duration kk 
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$FF 



: end of pattern 



ntOO =* 










.byte 


?FD, 


$3F 






.byte 


?FA, 


$04 






.byte 


?00 








.byte 


?FF 








ntOl =* 










.byte 


?FA, 


$01 






.byte 


?FD, 


$3F 






.byte 


?23, 


$1F, 


$22, 


$1E 


.byte 


?FF 








nt03 =* 










.byte 


?FA, 


$01 






.byte 


?FD, 


$3F 






.byte 


?17, 


$13, 


$16, 


$12 


.byte 


?FF 








nt02 =* 










.byte 


$FD, 


$0F 






.byte 


$FA, 


$04 






.byte 


$00 








.byte 


$FF 








nt04 =* 










.byte 


$FA, 


$02 






.byte 


$FD, 


$7F 






.byte 


$25, 


$25 






.byte 


$FF 








nt05 =* 










.byte 


$FA, 


$0E 






.byte 


$FD, 


$3F 






.byte 


$2F, 


$2B, 


$2E 




.byte 


$FC, 


$20 






.byte 


$2A 








.byte 


$FF 








nt06 =* 










.byte 


$FA, 


$06 






.byte 


$FD, 


$01 






.byte 


$42, 


$3B, 


$3B, 


$42 


.byte 


$3B, 


$3B, 


$43, 


$3B 


.byte 


$42, 


$3B, 


$3B, 


$42 


.byte 


$3B, 


$3B, 


$43, 


$3B 


.byte 


$42, 


$3B, 


$3B, 


$42 


.byte 


$3B, 


$3B, 


$43, 


$3B 


.byte 


$42, 


$3B, 


$3B, 


$42 


.byte 


$3B, 


$3B, 


$43, 


$3B 


.byte 


$FF 








nt07 =* 










.byte 


$FA, 


$01 






.byte 


$FD, 


$7F 






.byte 


$23 








.byte 


$FF 








nt08 =* 










.byte 


$FA, 


$01 






.byte 


$FD, 


$7F 






.byte 


$17, 


$00 






.byte 


$FF 








nt09 =* 










.byte 


$FA, 


$09 






.byte 


$FD, 


$1F 






.byte 


$17, 


$13, 


$12, 


$0F 


.byte 


$FF 








ntOA =* 










.byte 


$FA, 


$08 






.byte 


$FD, 


$0F 






.byte 


$3E, 


$39 






.byte 


$FD, 


$1F 






.byte 


$3B 








.byte 


$FD, 


$0F 






.byte 


$3D, 


$3B 






.byte 


$FD, 


$1F 






.byte 


$3A 








.byte 


$FD, 


$7F 






.byte 


$FB, 


$01 






.byte 


$2F 








.byte 


$FF 








ntOB =* 










.byte 


$FA, 


$06 






.byte 


$FD, 


$01 







All the patterns of 
notes start from here 
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.byte $3D, $36, $36, $3D 

.byte $36, $36, $3E, $36 

.byte $3D, $36, $36, $3D 

.byte $36, $36, $3E, $36 

.byte $3A, $33, $33, $3A 

.byte $33, $33, $3B, $33 

.byte $3A, $33, $33, $3A 

.byte $33, $33, $3B, $33 

.byte $FF 



■ntOC =' 










.byte 


$FA, 


$06 






.byte 


$FD, 


$01 






.byte 


$42, 


$3B, 


$3B, 


$42 


.byte 


$3B, 


$3B, 


$43, 


$3B 


.byte 


$42, 


$3B, 


$3B, 


$42 


.byte 


$3B, 


$3B, 


$43, 


$3B 


.byte 


$3E, 


$37, 


$37, 


$3E 


.byte 


$37, 


$37, 


$3F, 


$37 


.byte 


$3E, 


$37, 


$37, 


$3E 


.byte 


$37, 


$37, 


$3F, 


$37 


.byte 


$FF 








•ntOD =• 










.byte 


$FA, 


$0A 






.byte 


$FD, 


$01 






.byte 


$3B, 


$3A, 


$39, 


$38 


.byte 


$39, 


$3A, 


$3B, 


$3A 


.byte 


$39, 


$38, 


$39, 


$3A 


.byte 


$3B, 


$3A, 


$39, 


$38 


.byte 


$39, 


$3A, 


$3B, 


$3A 


.byte 


$39, 


$38, 


$39, 


$3A 


.byte 


$3B, 


$3A, 


$39, 


$38 


.byte 


$39, 


$3A, 


$3B, 


$3A 


.byte 


$FF 








•ntOE =' 










.byte 


$FA, 


$07 






.byte 


$FD, 


$01 






.byte 


$2D 








.byte 


$FD, 


$03 






.byte 


$2D 








.byte 


$FD, 


$0D 






.byte 


$2D 








.byte 


$FD, 


$03 






.byte 


$2D 








.byte 


$FD, 


$07 






.byte 


$FA, 


$00 






.byte 


$2D 








.byte 


$FA, 


$07 






.byte 


$FD, 


$01 






.byte 


$2D 








.byte 


$FD, 


$03 






.byte 


$2D 








.byte 


$FD, 


$0D 






.byte 


$2D 








.byte 


$FD, 


$03 






.byte 


$2D 








.byte 


$FD, 


$07 






.byte 


$FA, 


$00 






.byte 


$2D 








.byte 


$FF 








•ntOF =' 










.byte 


$FA, 


$0B 






.byte 


$FD, 


$01 






.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$23, 


$23, 


$23, 


$23 


.byte 


$FF 








■ntlO =' 










.byte 


$FA, 


$0B 






.byte 


$FD, 


$01 






.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$22, 


$22, 


$22, 


$22 


.byte 


$FF 








•ntll =' 
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.byte $FA, $0B 

.byte $FD, $01 

.byte $25, $25, $25, $25 

.byte $25, $25, $25, $25 

.byte $25, $25, $25, $25 

.byte $25, $25, $25, $25 

.byte $25, $25, $25, $25 

.byte $25, $25, $25, $25 

.byte $25, $25, $25, $25 

.byte $25, $25, $25, $25 

.byte $FF 



pntl2 =' 










.byte 


$FA, 


$0A 






.byte 


$FD, 


$01 






.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$3B, 


$37, 


$36, 


$34 


.byte 


$FF 








pntl3 =■■ 










.byte 


$FA, 


$0B 






.byte 


$FD, 


$01 






.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$1F, 


$1F, 


$1F, 


$1F 


.byte 


$FF 








pntl4 =' 










.byte 


$FA, 


$06 






.byte 


$FD, 


$01 






.byte 


$3F, 


$3B, 


$36, 


$3F 


.byte 


$3B, 


$36, 


$3F, 


$3B 


.byte 


$3F, 


$3B, 


$36, 


$3F 


.byte 


$3B, 


$36, 


$3F, 


$3B 


.byte 


$3F, 


$3B, 


$36, 


$3F 


.byte 


$3B, 


$36, 


$3F, 


$3B 


.byte 


$3F, 


$3B, 


$36, 


$3F 


.byte 


$3B, 


$36, 


$3F, 


$3B 


.byte 


$FF 








pntl5 =' 










.byte 


$FA, 


$06 






.byte 


$FD, 


$01 






.byte 


$3E, 


$3B, 


$37, 


$3E 


.byte 


$3B, 


$37, 


$3E, 


$3B 


.byte 


$3E, 


$3B, 


$37, 


$3E 


.byte 


$3B, 


$37, 


$3E, 


$3B 


.byte 


$3E, 


$3B, 


$37, 


$3E 


.byte 


$3B, 


$37, 


$3E, 


$3B 


.byte 


$3E, 


$3B, 


$37, 


$3E 


.byte 


$3B, 


$37, 


$3E, 


$3B 


.byte 


$FF 








pntl6 =' 










.byte 


$FA, 


$0D 






.byte 


$FD, 


$1F 






.byte 


$37, 


$36, 


$39, 


$37 


.byte 


$36, 


$2F, 


$2F, 


$32 


.byte 


$FF 








pntl7 =■■ 










.byte 


$FA, 


$10 






.byte 


$FD, 


$01 






.byte 


$23, 


$23, 


$2A, 


$2A 


.byte 


$28, 


$28, 


$2A, 


$2A 


.byte 


$26, 


$26, 


$2A, 


$2A 


.byte 


$28, 


$28, 


$2A, 


$2A 


.byte 


$23, 


$23, 


$2A, 


$2A 


.byte 


$28, 


$28, 


$2A, 


$2A 


.byte 


$26, 


$26, 


$2A, 


$2A 


.byte 


$28, 


$28, 


$2A, 


$2A 


.byte 


$FF 








pntl8 =' 










.byte 


$FA, 


$13 






.byte 


$FD, 


$07 






.byte 


$FC, 


$37, 


$45 




.byte 


$FD, 


$2F 






.byte 


$47 
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.byte $FD, 


$07 






.byte $FB, 


$7F, 


$47 




.byte $FD, 


$37 






.byte $42 








.byte $FD, 


$07 






.byte $FB, 


$80 






.byte $42 








.byte $FF 








pntl9 =* 








.byte $FA, 


$13 






.byte $FD, 


$1F 






.byte $3B 








.byte $FD, 


$0F 






.byte $39, 


$37 






.byte $FD, 


$3F 






.byte $36 








.byte $FF 








pntlA =* 








.byte $FA, 


$13 






.byte $FD, 


$1F 






.byte $34 








.byte $FD, 


$0F 






.byte $32, 


$31 






.byte $FD, 


$3F 






.byte $2F 








.byte $FF 








pntlB =* 








.byte $FA, 


$0B 






.byte $FD, 


$01 






.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $1B, 


$1B, 


$1B, 


$1B 


.byte $FF 








pntlC =* 








.byte $FA, 


$01 






.byte $FD, 


$1F 






.byte $3B 








.byte $FD, 


$0F 






.byte $3A, 


$36 






.byte $FD, 


$2F 






.byte $36 








.byte $FD, 


$0F 






.byte $38 








.byte $FD, 


$1F 






.byte $38, 


$2F, 


$31 




.byte $FD, 


$0F 






.byte $33, 


$34 






.byte $FD, 


$7F 






.byte $36, 


$36 






.byte $FF 








pntlD =* 








.byte $FA, 


$0B 






.byte $FD, 


$01 






.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $1C, 


$1C, 


$1C, 


$1C 


.byte $FF 








pntlE =* 








.byte $FA, 


$0B 






.byte $FD, 


$01 






.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $1E, 


$1E, 


$1E, 


$1E 


.byte $FF 








pntlF =* 








.byte $FA, 


$09 






.byte $FD, 


$3F 






.byte $23, 


$1B, 


$1C, 


$1E 
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.byte 


$FF 






»nt20 =' 








.byte 


$FA, 


$01 




.byte 


$FD, 


$7F 




.byte 


$17, 


$17 




.byte 


$FF 






.byte 


$21, 


$26 




.byte 


$FD, 


$11 




.byte 


$28 






.byte 


$FF 






■nt21 =' 








.byte 


$FA, 


$15 




.byte 


$FD, 


$01 




.byte 


$1F, 


$1F 




.byte 


$FD, 


$03 




.byte 


$1F 






.byte 


$FA, 


$0F 




.byte 


$FD, 


$01 




.byte 


$2E, 


$27 




.byte 


$FA, 


$15 




.byte 


$1F 






.byte 


$FD, 


$03 




.byte 


$1F 






.byte 


$FD, 


$01 




.byte 


$1F 






.byte 


$FD, 


$03 




.byte 


$1F 






.byte 


$FD, 


$01 




.byte 


$FA, 


$0F 




.byte 


$2F 






.byte 


$FA, 


$15 




.byte 


$1A, 


$1D, $1F 


.byte 


$FF 






»nt22 =' 








.byte 


$FA, 


$09 




.byte 


$FD, 


$01 




.byte 


$13, 


$13 




.byte 


$FD, 


$03 




.byte 


$13 






.byte 


$FD, 


$01 




.byte 


$FA, 


$00 




.byte 


$2E, 


$27 




.byte 


$FA, 


$09 




.byte 


$13 






.byte 


$FD, 


$03 




.byte 


$13 






.byte 


$FD, 


$01 




.byte 


$13 






.byte 


$FD, 


$03 




.byte 


$13 






.byte 


$FD, 


$01 




.byte 


$13, 


$10, $11, $13 


.byte 


$FF 






■nt23 =' 








.byte 


$FA, 


$09 




.byte 


$FD, 


$01 




.byte 


$17, 


$17 




.byte 


$FD, 


$03 




.byte 


$17 






.byte 


$FD, 


$01 




.byte 


$FA, 


$00 




.byte 


$2E, 


$27 




.byte 


$FA, 


$09 




.byte 


$17 






.byte 


$FD, 


$03 




.byte 


$17 






.byte 


$FD, 


$01 




.byte 


$17 






.byte 


$FD, 


$03 




.byte 


$17 






.byte 


$FD, 


$01 




.byte 


$17, 


$12, $15, $17 


.byte 


$FF 






■nt24 =' 








.byte 


$FA, 


$15 




.byte 


$FD, 


$01 




.byte 


$23, 


$23 




.byte 


$FD, 


$03 




.byte 


$23 






.byte 


$FA, 


$0F 




.byte 


$FD, 


$01 




.byte 


$2E, 


$27 




.byte 


$FA, 


$15 




.byte 


$23 
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.byte $FD, 


$03 






.byte $23 








.byte $FD, 


$01 






.byte $23 








.byte $FD, 


$03 






.byte $23 








.byte $FD, 


$01 






.byte $FA, 


$0F 






.byte $2F 








.byte $FA, 


$15 






.byte $1E, 


$21, 


$23 




.byte $FF 








pnt25 = * 








.byte $FA, 


$0A 






.byte $FD, 


$39 






.byte $47 








.byte $FD, 


$01 






.byte $46, 


$45, 


$44 




.byte $FD, 


$39 






.byte $43 








.byte $FD, 


$01 






.byte $44, 


$45, 


$46 




.byte $FF 








pnt26 =* 








.byte $FA, 


$12 






.byte $FD, 


$3F 






.byte $3B, 


$43, 


$42, 


$3E 


.byte $3B, 


$37, 


$36, 


$2F 


.byte $FF 








pnt27 =* 








.byte $FA, 


$0C 






.byte $FD, 


$01 






.byte $31, 


$3D, 


$49, 


$3D 


.byte $31, 


$3D, 


$49, 


$3D 


.byte $FF 








pnt28 =* 








.byte $FA, 


$01 






.byte $FD, 


$7F 






.byte $17, 


$00, 


$00, 


$00 


.byte $FF 








pnt29 =* 








.byte $FA, 


$01 






.byte $FD, 


$7F 






.byte $23, 


$00, 


$00, 


$00 


.byte $FF 








; arpeggio p 


ointers table 


pointerLo : 








.byte <TableArpO 




rl57B: 








pointerHi : 








.byte >TableArpO 





TableArpO : 

.byte $00, $0C, $18 

;pointers to the patterns 



Here goes the definition 
of the arpeggio 



; low pointers 


patptl = 


=* 


.byte 


<pnt00 


.byte 


<pnt01 


.byte 


<pnt02 


.byte 


<pnt03 


.byte 


<pnt04 


.byte 


<pnt05 


.byte 


<pnt06 


.byte 


<pnt07 


.byte 


<pnt08 


.byte 


<pnt0 9 


.byte 


<pnt0A 


.byte 


<pnt0B 


.byte 


<pnt0C 


.byte 


<pnt0D 


.byte 


<pnt0E 


.byte 


<pnt0F 


.byte 


<pntl0 


.byte 


<pntll 


.byte 


<pntl2 


.byte 


<pntl3 


.byte 


<pntl4 
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.byte <pntl5 
.byte <pntl6 
.byte <pntl7 
.byte <pntl8 
.byte <pntl9 
.byte <pntlA 
.byte <pntlB 
.byte <pntlC 
.byte <pntlD 
.byte <pntlE 
.byte <pntlF 
.byte <pnt20 
.byte <pnt21 
.byte <pnt22 
-byte <pnt23 
.byte <pnt24 
.byte <pnt25 
.byte <pnt26 
.byte <pnt27 
-byte <pnt28 
.byte <pnt29 

; high pointers 

patpth =* 

.byte >pnt00 
.byte >pnt01 
.byte >pnt02 
.byte >pnt03 
.byte >pnt04 
.byte >pnt05 
.byte >pnt06 
.byte >pnt07 
.byte >pnt08 
.byte >pnt09 
.byte >pntOA 
.byte >pntOB 
.byte >pntOC 
.byte >pntOD 
.byte >pntOE 
.byte >pntOF 
.byte >pntlO 
.byte >pntll 
.byte >pnt!2 
.byte >pnt!3 
.byte >pnt!4 
.byte >pnt!5 
.byte >pnt!6 
.byte >pnt!7 
.byte >pnt!8 
.byte >pnt!9 
.byte >pntlA 
.byte >pntlB 
.byte >pntlC 
.byte >pntlD 
.byte >pntlE 
.byte >pntlF 
.byte >pnt20 
.byte >pnt21 
.byte >pnt22 
.byte >pnt23 
.byte >pnt24 
.byte >pnt25 
.byte >pnt26 
.byte >pnt27 
.byte >pnt28 
.byte >pnt29 

songs =* 
ltrl: 

.byte $00 

.byte <drillerMainTrl 



htrl: 

.byte $00 

.byte >drillerMainTrl 



ltr2: 

.byte $00 

.byte <drillerMainTr2 

htr2: 

.byte $00 

.byte >drillerMainTr2 



The tables of songs 
with pointers to the 
tracks for each voices 



ltr3: 

.byte $00 

.byte <drillerMainTr3 

htr3: 
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.byte $00 

.byte >drillerMainTr3 

.byte $00 

initsongs = * 

Ida #$01 

sta songsNumber 

rts 



; first song 



Conclusion 




May be now you know better how Matt had created a so beautiful sound. 

However, you should experiment with the source if you want to understand better how the en- 
gine works. 

The last thing is rasterlines: the minimum used is of 10 (used when creating the sound effects), 
while when reading new notes/patterns, the maximum grown until 34! 

Finally, as far as I know, the Matt' engine was used in the past even by Tomas Danko and Jon 
Wells for a total of 1 1 tunes. 
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08GS**2te 2 end 
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